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A GENERALIZED TECHNIQUE FOR USING CONES AND 
DIHEDRAL ANGLES IN ATTITUDE DETERMINATION 

Roger D, Werking 
FOREWORD 

Over the past several years the Attitude Determination and Control Section has pro- 
vided support for a number of unmanned scientific and application satellites in the 
area of attitude determination and attitude control. The satellites have used a vari- 
ety of sensors and combinations of sensors for use in attitude determination. As a 
result, an effort was made to develop an attitude determination technique which 
was capable of handling data from a variety of sensors and produced a general 
set of solutions from mission to mission. The effort was directed toward re- 
ducing the analytical and programming efforts required to support new missions. 
This document presents the technique which is presently being used by the Atti- 
tude Determination Office to meet many of the attitude determination require- 
ments of various missions. The basic analytical work was performed by Mr. 
L. B. Schlegel of IBM, Federal Systems Division, Federal Systems Center, 
Gaithersburg, Maryland. The programming of the GCONES subroutine was per- 
formed by Mr. F. J. Knoop of IBM. Both efforts were under contract to the At- 
titude Determination Office. Submitted herein are excerpts from a document 
written by Mr. Schlegel and Mr. Knoop entitled "GCONES: A Least Squares 
Geometric Approach to Attitude Determination of a Spinning Satellite" (Reference 
1 ). 

Analytic development is presented lor a general least squares attitude determin- 
ation subroutine applicable to spinning satellites. The method is founded on a 
geometric approach which is completely divorced from considerations relating 
to particular types and configurations of onboard attitude sensors. Any mix of 
sensor measurements which can be first transformed (outside the program) to 
cone or dihedral angle data can be processed. A cone angle is an angle between 
the spin axis and a knovra direction line in space; a dihedral angle is an angle 
between two planes formed by the spin axis and each of two known direction lines. 
Many different -kinds of sensor data can be transformed to these angles, which in 
turn constitute the actual program inputs, so that the subroutine can be applied 
without change to a variety of satellite missions. Either a constant or dynamic 
spin axis model can be handled. The program is also capable of solving for 
fixed biases in the input angles, in addition to the spin axis attitude solution. 

This technique for attitude determination has been used by the Attitude Deter- 
niination Office to support AE-B, RAE-1, ITOS-1, NOAA-I, SAS-1, IMP-6, 
San Marco- C (References 2, 3, 4, 5, 6, 7 and 8), SAS-2, IMP-7 and AEROS-1. 
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A GENERALIZED TECHNIQUE FOR USING CONES AND 
DIHEDRAL ANGLES IN ATTITUDE DETERMINATION 


1. INTRODUCTION 

Since the early 1960's, the Attitude Determination and Control Section of Goddard 
Space Flight Center has had continuing responsibility for attitude determination of a 
variety of scientific satellites. Many of these satellites are spin stabilized in orbit, 
and the primary problem is that of determining the inertial orientation of the spin 
axis. A number of different types of onboard- measured sensor data are avail- 
able for this purpose, depending on the particular satellite. Examples are solar 
aspect sensors, magnetometers, horizon scanners, and star slit scanners. The 
objective is to obtain a best estimate of the attitude from many individual sensor 
measurements over some span of the orbit. Although spin-stabilized, the atti- 
tude can in general change slowly in time because of disturbances and/or applied 
control torques. The possible presence of this motion over the data time span 
must be accounted for in the attitude estimation procedure by a dynamic spin 
axis motion model. 

As described above, the attitude determination problem submits to a standard 
least squares solution which minimizes the sum of squares of residuals between 
measured and computed sensor data points. Whenever the relations between 
sensor observables and attitude state variables are nonlinear, an iterative differ- 
ential correction procedure must be employed. The computed data are then 
based initially on an a priori estimated state, and at subsequent iterations on the 
updated (differentially corrected) state. In some cases, the observables can be 
linearly related to the state and a one- step, noniterative solution can be obtained 
without an initial estimate. In either situation, this solution approach usually 
requires a separate least squares program for each different satellite of inter- 
est, because of the distinct sensor complement associated with each. The prac- 
tical outcome is a considerable duplication of programming work from one 
satellite attitude determination system to another. 

To overcome this redundancy, a technique for attitude determination has been 
used which reduces the effort required to develop a new support system for each 
new mission. It was noticed that for many types of sensors flown on spin stab- 
ilized satellites, two types of angles were the fundamental measurements of data 
obtained from the sensors. The first of these angles is commonly referred to as a 
cone angle and is a measure of the angle between some reference vector and the 
spin axis. For example, the outputs of (i) a solar aspect sensor, (ii) a magnetom- 
eter collinear with the spin axis, and (iii) an infrared horizon scanner, can be 
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transformed to angles between the spin axis and (i) the sun line, (ii) the earth’s 
magnetic field direction, and (iii) the local vertical line. Each such angle can be 
regarded as the generating angle of a cone having the known direction as its 
axis. Thus, a single measurement constrains the spin axis to lie on a conical 
surface locus. The second of these aisles is a dihedral angle demonstrated on 
the IMP series of satellites. The dihedral angle for those missions is a measure- 
ment of the angle between a plane formed by the spin axis and sun line, and the 
plane formed by the spin axis and the earth’s horizon (as sensed by an optical 
telescope). A dihedral angle measurement defines a different kind of locus sur- 
face in space than the conical surface locus of a cone angle. 

For a fixed spin axis, this technique (Reference 9) finds the inertial orientation 
of the least-squares common intersection line of all these loci, using as input 
only the generating cone-dihedral angles and the associated reference vectors. 
The method used is iterative differential correction to minimize a weighted sum 
of squares of residuals between "measured” (that is, transformable from 
measured sensor data) and computed cone and dihedral angles; an initial or a 
priori attitude estimate is required. The solution is taken as the best estimate 
of spin axis attitude using all measured sensor data. 

The key idea behind this approach is that the least squares solution algorithm is 
completely divorced from individual sensor types, onboard mounting angles, etc. 
Rather, the solution is developed on a strictly geometric basis. Consequently, 
for each new application, only the transformations from fundamental measure- 
ments to cone and dihedral angles need to be specially developed. In this way 
the technique achieves a significant degree of generality as a fundamental atti- 
tude determination tool for spin stabilized spacecraft. 

With the use of this technique, new programming is limited to sensor- measure- 
ment-to-cone angle- dihedral angle transformations. Solutions can be obtained 
for both static (inertially fixed) and dynamic spin axis motion models. For sim- 
plicity, dynamic models, at present are restricted to either linear or quadratic 
polynomials in time for each of the attitude angles which define spin axis orien- 
tation. Here the solution obtained includes attitude angles, rates (linear model), 
and accelerations (quadratic model) at some epoch time. To provide a better 
understanding of the data which is being used an option is available for estimat- 
ing as an additional state parameter, a constant bias in one of the sensor types 
which contributes to the overall mix of input cone angles. 

The ability to estimate bias in addition to attitude has proven to be a useful tool. 
Inclusion of this mode provides the estimation process with another "degree of 
freedom," and often results in a better solution "fit" in terms of overall reduc- 
tion of residuals. In the case of this technique, adherence to the basic design 
philosophy does not permit particular sensor biases to be appended to the attitude 


2 



estimation. Nonetheless, the technique does include full capability of optionally 
estimatingconstantbiases in the derived cone or dihedral angles, which form the 
basic inputs. Indeed, separate biases in distinct types of angle data may be 
estimated simultaneously (see Section 3.1), This approach appears to be the 
simplest way to incorporate the feature of bias estimation in a technique which 
is fundamentally sens or- independent. To the extent, however, that sensor mea- 
surements may not transform linearly to cone or dihedral angles (prior to using 
this technique), each constant bias estimated should be cautiously interpreted as 
no more than a kind of overall or average bias effect of the associated sensor 
over the entire data span. This interpretation is put on a sounder basis when the 
data time span is reasonably short. In that case, the approximation of a linear 
transformation from sensor measurement to geometric angle is more nearly 
realized. 

Differential equation models for dynamic spin axis behavior are included in the 
technique. This behavior is represented by simple polynomial models (linear, 
quadratic and cubic) to account for dynamic behavior of each of the attitude 
angles which define spin axis orientation. These models have proven adequate 
in past studies whenever the time span of the data being processed is relatively 
short. The reasoning is that over a sufficiently short span, the true dynamic 
behavior (of whatever complexity) can be approximated by low order polynomials 
in time. The polynomial riiodels enjoy the computational advantage that the at- 
titude angles at any time are linearly related to the attitude angles, rates, accel- 
erations, etc. at epoch. These epoch values make up the state vector in the 
dynamic case. It is realized, however, that in particular situations where the 
processed data span is necessarily long, or where high disturbance or control 
torques are acting to change the attitude, another type of model may be needed. 
This might be based on other kinds of functions (non-polynomial), or more gen- 
erally on differential equations of motion. The latter requires specification of 
all torques acting to change the attitude. In particular cases such models may 
be incorporated without difficulty into the structure to replace the built-in 
polynomials. 


2. DATA CLASSES, TYPES, AND WEIGHTS 

From now on the discussion will refer to "measured" or "observed" cone angle 
and dihedral angle inputs to the technique. It is understood that these angles 
are not necessarily themselves measured, but are usually transformed (prior 
to the use of the technique) from actual onboard sensor data. 

The input is broken into two basic classes of data: cone angle data (Class 1) 
and dihedral angle data (Class 2). Within each class there may be any number 
of distinct types, as for example sun cone angles (cone axis = sun line), magnetic 
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cone angles (cone axis = magnetic field direction), etc. within the class of cone 
angles; and similarly for the class of dihedral angles.* LasUy, for each type of 
data, there can be any number of individual angles . Each measured angle can 
have any assigned input weight, but each measurement is considered to be in- 
dependent from all others. Any mixture of numbers, types, and classes of angles 
constitutes a valid input for a solution run. 

The subparagraphs which follow develop the geometric relations between cone 
or dihedral angles and the spin axis attitude angles at the time of observation. 
These ecjuations are needed later in the differential correction formulation. The 
attitude of unit spin axis S is consistently defined in terms of right ascension and 
declination angles S , relative to the standard geocentric inertial system X, 

Y, Z referred to the vernal equinox. This geometry is shown in Figure 1, with 


and 


S = Sj X + Y + S 3 z 


( 1 ) 


S, ~ cos a cos S (0° < a < 360°, - 90° < S < 90°) 


Sj = sin a cos 8 




S 3 = sin S 


J 


( 2 ) 


2.1 Cone Angle Data (Class 1) 

Cone angles are designated by 0 throughout this report. A cone angle is a 
measure of the angle between S and some known unit vector _U in inertial axes. 
The vector U is regarded as errorless. A single d measurement constrains S 
to lie on a c"one about U with generating angle 0 , as shown in Figure 2a. A 
number ofd measurements, and associated cone axes, constrain S to lie simul- 
taneously on a number of cones. In general, with imperfect measurements, all 
cones will not exactly intersect in a common linel The program (with only 
Class 1 cone angle data input) finds the best common intersection line in the 
sense of weighted least squares minimization of cone angle residuals, and this 
line is taken as the solution for S. A ’'top view" of this multiple intersection 


*ln Section 4-2 of Reference 10, ‘‘classes'’ of dota (cone and dihedral angles) are referred to as 
"types,* but the present report will consistently use these designations in the way defined here. 
tThe discussion here assumes a fixed spin axis. In the dynomic case all the cones do not hove a 
common intersection, even with perfect 9 measurements. 
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Z (NORTH POLE) 



Figure 1. Spin Axis Orientation Angles 

geometry is shown in Figure 2b. With only two cones, two equally valid solu- 
tions exist; in this case the program will converge to the Intersection line which 
lies closest in angle separation to the input initial estimate of S. 

The relation between ^ and the spin axis attitude angles a, S at the time of 
observation is 


cos'* (U-S) cos * (Uj Sj + Uj Sj 


^ ""a S3) 




( 3 ) 


where Uj 2 -i ai’G the known X, Y, _Z components of U and S j 2, 3 defined in (2) . 
Whenever bias is to be estimated for a particular type of cone angle data, (3) 
is augmented by the addition of a bias term b^ on the right, as indicated by the 
dashed block. 
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CONICAL LOCUS FOR S 

5 = UNIT SPIN AXIS 
y^UNIT CONE AXIS 

6 -- CONE ANGLE 


SOLUTION FOR S 



2,2 Dihedral Angle Data (Class 2) 

Dihedral angles are designated by ^ throughout this report. A dihedral angle ^ 
is a measure of the angle between two planes: the one defined by S and a first 
known unit direction line V, the other defined by S and a second known unit 
direction line W, The vectors V and W are regarded as errorless. It is 
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understood that S is not coincident with either _V or W. Geometry is illustrated 
in Figure 3. The key distinction between dihedral angles and cone angles is that 
now a single angle 'I' is associated with two inertial directions V and W, and S 
forms the line of intersection of the two planes of interest.* 

The sense and range of ’P , and the ordering of the associated unit vectors V and 
W , must be carefully defined for subsequent use. Referring to Figure 3, suppose 
the given ordering of the unit vectors is V, W (i.e., ^ "comes first"), and let 
V', W be unit vectors along the projections of V and W in a plane normal to S. 
Then 'P is uniquely defined in the range 0® ^ < 360° as the angle from V* 

around to W, positive in the sense of positive rotation about S. For any type of 


S 



S VUNIT SPIN AXIS 

V,^= ORDERED PAIR OF KNOWN UNIT DIRECTION LINES 
V'W'=UNtT VECTORS ALONG PROJECTIONS OF V AND W IN PLANE 
NORMAL TO ^ 

DIHEDRAL ANGLE BETWEEN SV AND^W PLANES, 0‘><V'<360* 
Figure 3. Dihedral Angle Geometry 


*Note that o different kind of dihedral angle can be defined by ^ and two known inertio( direction 
linos y^andW, when either Y ot W_rother thon^is common to the two planes which intersect at 
the given angle. POLANG data from the ATS satellite series is an example of such a dihedral 
angle (Reference 11). 


7 



sensor data transformable to 'P angles, an ordering of the known V and W direc- 
tion lines must be specified, and the magnitude of measured must be in accord 
with this ordering and the above definition. 

The relation between W and the attitude angles a , S of S at the time of observa- 
tion can be developed from the geometry of Figure 3. First define the auxiliary 
angles in the range 0° to 180° by 


cos7y = V-S, cosy^ = ^-S 


( 4 ) 


and the auxiliary unit vector ^ in the plane normal to S by 


Q ^ S X V' 


( 5 ) 


Then 


V' = 


sin 


(V - cos 7 ^ S') 


W' = ~ (W - cos 7 ^ S) 

s 1 n 7^ W- 

Q = S X V' = (S X V) 

sin 7^ 

__ /w' -qN 

¥ = tan“l ( - , 0° < W < 360° unambiguously 

by sign of numerator and 
denominator 


( 6 ) 

( 7 ) 

( 8 ) 

( 9 ) 
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Substituting from (4), ( 6 ), (7), and (8) into (9) and simplifying, 


'P = t an“ ^ 


w- (S X 

V- W - cos w-s - cos 7,^ v-s + cos cos y^ 


- tan 


-1 


S- (Vx W) 


y-w - (v-s) (w-s) 


( 10 ) 


where the factor (sin y^ sin y ^ ) has been divided out from the numerator and 
denominator without loss of quadrant selectivity, since both sin y^ and sin y^ 
are positive for 0*’ < < 180°. Finally, letting Vj ^ ^ and W be the 

known X, Y, 'L components of V and W, (10) reduces to 


*}^ = t an ^ 


, ^3 " V3 ^2^ + (V3 W3) + S3 (V^ W, - w,) : ; 

[(Vj Wj + W2 + V3 W3) - ( S, K V3 f V3 S3) CW^ Sj + S2 + W3 83^ 


where 2 3 are defined in (2). Equation (11) is the desired relation between 
4' and a, S . Whenever bias is to be estimated for a particular type of dihedral 
angle data, ( 11 ) is augmented by the addition of a bias term b^ on the right, as 
indicated by the dashed block. 

Before concluding this section, a few remarks on the concept of a "dihedral 
angle locus" are in order. In the same way that a single cone angle Q cannot 
uniquely determine the spin axis, but only defines a locus for S, so also a single 
dihedral angle S' defines a different kind of locus. It is generally of more com- 
plicated character than the cone of Figure 2a. To demonstrate that a locus in- 
deed exists, it is instructive to consider the specific case shown in Figure 4, 
where V and_W are separated by 45“ and ^ = 60“. This figure is drawn differently 
from Figure 3, in that it is referenced to the plane of V and W as "equator" 
plane, with N the unit normal to this plane. Now along every meridian extending 
from N to the equator arc bounded by A and B, there must exist a direction S 
such that the dihedral angle between planes S V andS W is equal to 60". 

This follows since as S proceeds from N down alor^ every such meridian, 4> 
opens up from 'V = 45“ (when S = N) to either 4 » = 180“ (when S lies in the equa- 
tor plane between V and W) or 'i* = 90“ (when S = V or S = W). Two particular 
points on this locus are shown as and on the meridian arcs NV and NW, 
and a segment of the locus is sketched between. 
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N = UNtT NORMAL tN DIRECTION OF V * W 
LOCUS OF S ~ “ “ 



Figure 4. Spin Axis Locus (Single Dihedral Angle) 

Note that this locus is not a "circle of latitude." Nor, apparently, is it part of a 
(right circular) cone. That is, there is no single direction line in space which 
could serve as cone axis; such a line must have the property that all S orienta- 
tions aloi^ the locus are separated from it by a constant angle (the cone angle). 
Nevertheless, the surface swept out by S as it occupies all points on the locus can 
be considered in a general sense to be part of (non- right- circular) "cone." 

A number of dihedral angles alone (without any additional cone angles) suffices 
for a solution, since ail of the loci so defined have a nearly common intersection 
line.* With only Class 2 dihedral angle inputs, the technique finds the best com- 
mon intersection in the sense of weighted least squares minimization of dihedral 
angle residuals. This is taken as the solution for S. In the most general case, 
any mixture of Class 1 and Class 2 data may be input, and the program finds the 
best common intersection of all cone angle and dihedral angle loci. 


*The discussion here ogoin assumes a fixed spin axis, but the program also handles the dynamic 
case (Section 3). 
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3. SPIN AXIS MOTION MODEL 
3,1 Constant and Dynamic Models 


The moat common application of the technique is the case of constant S. That 
is, the actii^ torque levels are sufficiently small, or the data span is sufficiently 
short, that S can be regarded as inertially fixed over the span. The attitude state 
is then simply defined by a and S , if these conditions are not well satisfied, a 
dynamic motion model based on low order polynomials in time is assumed for 
a and S , viz. 


a (t) = (t - Ct 

S (t) = + dj (t - tg) + dj (t 

where tp is a chosen eijoch time and t is a general time within the data span. 
The advantage of polynomial models in the least-squares solution algorithm is 
that the attitude angles at times t are linearly related to the a^ , a^, . . d^ 
state coefficients. Considerable computational simplicity is thereby realized 
(see Section 4). 

Logic allows for truncations of (12) to quadratic, linear, or constant models at 
the option of the user, so that the case of constant S is also handled by the gen- 
eral form (12). To summarize, the state variables estimated by this technique 
for the various motion models are as follows: 


STATE DEFINITION 


Model 

State Variables 

Constant 

^0 » ^0 

Linear 

^ 0 * ^ 0 * ®1* 

Quadratic 

^ 0 » ^ 0 » » ^2 » 

Cubic 

^ 0 * a J » » & 2 ’ ^ 2 * ^ 3 ’ ^3 


- V" + ^^3 


J 


(12) 


At option, constant biases on separate types of either cone angle (Class 1) or di- 
hedral angle (Class 2) data may be included as additional state parameters and 
estimated along with the attitude variables. As many as five distinct biases may 
be simultaneously estimated, apportioned in any way among the separate data 
ty^es of either data class. 
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3.2 Nutation Application 


By their very nature, polynomial models tend to fit the general trend of a dynamic 
motion process, and to filter out short period oscillations. A particular instance 
of the latter, which is of some importance in practice, occurs when space nuta- 
tion is present. Here S executes coning motion about the total angular momen- 
tum H, and it is the attitude motion of H under various torques that is often well- 
approximated over a data span by poljmomial models. The measured cone and/ 
or dihedral angles, however, are relative to S. Consequently, they will exhibit 
an oscillatory component at the nutation period, which is in accord with the ac- 
tual motion of S. Now if (i) the nutation cone angle is small, (ii) the nutation 
period is short compared to the period required for H to change appreciably in 
direction, and (iii) many measured data points occur over each nutation cycle, 
then the inherent smoothing action of this technique tends to give a good estimate 
of the motion of H. The solution can then be interpreted as the average or 
smoothed motion of the nutating spin axis S. This holds for both constant and 
dynamic models for H. The above conditions (i), (ii), (iii) are indeed often satis- 
fied in practice, which implies that the simple polynomial models are capable of 
providing at least average solutions for S in the presence of nutation. For a 
particular application of these considerations to the TIROS- M satellite, see 
pp. 4-37 to 4-41 of Reference 4. 


4. LEAST SQUARES SOLUTION ALGORITHM 
4.1 Basic Formulation 


The attitude and optional bias solutions obtained by this technique are those 
which minimize a weighted sum J of squared residuals between measured and 
computed cone angles and dihedral angles. The minimization is carried out 
with respect to the attitude state variables (13), plus any specified bias param- 
eters. In vector- matrix form, the sum J is 


J = (d-0)' [w^] »P) ' [w,p] (I - ® (14). 


where 


^ = vector of cone angle measurements (hereafter the tilde (-^.) notation 
indicates a measured quantity; elements of 8 together with corres- 
ponding measurements times are input to the program) 
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9 = vector of computed cone angles 

[W^ ] = diagonal matrix of cone angle weights (input) 

$ = vector of dihedral angle measurements (input together with corres- 
ponding measurement times) 

V = vector of computed dihedral angles 

= diagonal matrix of dihedral angle weights (input) 

and prime ( ') indicates transpose. The elements of d andy are computed as 
functions of the attitude state (and possibly bias) parameters according to (3) 
and (11), together with the defining relations (2) and (12). 

Following Reference 12, the minimization of J is achieved iteratively through 
the differential correction algorithm 


Ax = {[H]' [W] [H]' [W] £ 


(15) 


where 


X - state vector (consisting of components (13) plus specified biases to 
be estimated) 

[Kl = matrix of partials of cone and dihedral angles with respect to the 
elements of the state vector 

[W] =i diagonal weighting matrix whose diagonal partitions are [W^ ] and 

i.e., 


[W,] 

0 

■ 

0 

[W(p] 


(16) 


vector of all cone and dihedral angles residuals, 

.6 ~ e 


£ = 


- 'P 


(17) 
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In the above, Ch] and ^ at each iteration are evaluated for the current state 
estimate x at that iteration (hereafter the hat (') notation indicates an estimate). 
The process begins at an input initial state estimate which is updated to 
X = ^ + A X after the first iteration, etc. (see Section 4.4) for additional details). 

4.2 Partial Derivatives 


The partial derivatives which go to make up the elements of [K] are obtained 
by chain-rule differentiations of (3) and (11) taken together with (2) and (12). A 
simple example will first be given to illustrate the procedure; extensions to 
more general cases follow. Suppose that (i) the dynamic model (12) is linear, 
(ii) only one type of Class 1 6 data is being processed, and (iii) bias in this data 
type is also to be estimated. Then the state parameters for the problem are 
^01 do» ^ 1 * ^i* relation between Q and these parameters is there- 

fore expressed by the system of equations 


6 = cos"^ (Uj cos a cos S + U 2 sin a cos S + sin S') + (18) 

a = + 3j (t - tg) (19) 

S dp + dj (t - to) (20) 


From (18-20) the appropriate partial derivatives are 


3 e 


- Uj sin a cos S + U 2 cos a cos S 


B a 


0 - 'Jl - (V^ cos acos S iUj sin acos S + 0^ sin 5)^ 


( 21 ) 


3 0 
3 d„ 


- Uj cos a s in S - sin a s in S + cos S 
- -Jl - (Uj cos acos S+Uj sin acos S + sin S) • 


( 22 ) 


^ .-M (t-t) 
3 a, 3 3p ^ ° 


(23) 


(t-tp) 

3d. 3 d„ ^ 


(24) 
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( 25 ) 


Where a and S are functions of a^, a^, d^, gfven by (19) and (20). 

For this example, assuming n data points , . . . , at measurements times 
tj» ■ • • » t„, matrix [H] is of order nx5, with the i-th,row consisting of the ele- 
ments (21-25) evaluated at time t. . 


It is seen that (21) and (22) are the ’’fundamental" partials for a constant spin 
axis model, with (23) and (24) being obtained from them by multiplyii^ by (t “ 
Extendir^ this sample to a quadratic or a cubic motion model, the required 
additional partials are 


a 6 

_ a ^ 


3 a. 

2 

0 

B 0 

_ a (9 

B a 


3 

0 

3 B 

_ a 

^ d. 

"ad 

2 

0 

a 0 

a e 


" Bd„ 


(t - 


(t - 




(t - 


(t - t„)3 


(26) 


Following this same approach, the fundamental partials for dihedral angle data 
are 3*p/9aQ, B'l'/Bdjj. These are obtained by differentiations of (11), with 
Sj 2 , 3 given by (2). The algebra is straightforward but somewhat lengthy, so 
only the final results are given here. For brevity of notion, define 




E = V W - V W 
1 '^2 ”3 '^3 ”2 


E r V W - V W 

2 3 "1 ’^1 ”'3 


E3 = V, W2 - V, 


F - V, Wj f V, W2, + V3 W3 


(27) 


(28) 
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Sy = V, S, + S, + V3 s 
\ = Wj Sj + Wj Sj + W3 s 



NUM (for 
DEN (for 


“Numerator”) = Sj 
“Denominator”) = F- 


* S, Ej + S 3 E 

s,s. 



Thus (11) becomes 


( 29 ) 




\- - f 


tan‘> 



(31) 


Further define 


Qj = DEN-Ej + NUM (S^ Wj + Vj) 

O2 = DEN • £3 + NUM (Sy V^) ( 32 ) 

Q3 DEN-E3 +NUM (Sy W3 f V3) 


Then the fundamental dihedral partials are 


9 ^ - 0i sin a cos S + cos a cos S 

^ ^0 (NUM) 2 + (DEN) 2 

9 (p - Qj cos a sin S - Q sin a sin 8 + Q. cos S 

5 d 

0 CNUM)2 + (DEN)2 


(33) 


(34) 


where a and S are functions of , . . . , d^ given by (12). Additional partials 
to accommodate a dynamic motion model are obtained by multiplying (33) and 
(34) by appropriate powers to (t - tg), as in (23), (24), (26). 
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J 

To summarize for all cases, the following table lists the partial derivative equa- 
tions used in computing the elements of [H] . 


PARTIAL DERIVATIVE TABULATION 



In addition to the above, [H] also contains partials of 9 or with respect to 
biases for particular data types. If bias for a particular type of i9 or data is 
being estimated, the appropriate partial (either 3 or 3'P/Bb^) is unity; 

otherwise it is zero. 

4.3 Computation Structure for Mixed Classes and Types of Data 

As stated earlier, this technique can handle any number of different data types 
within each data class. Within each type there can be any number of individual 
cone or dihedral angles. For additional clarification, it is helpful to examine a 
specific case here, which also serves to illustrate how bias estimation on par- 
ticular data types is processed. 
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Suppose that 5 cone angles of one type, 8 cone armies of another type, and 6 
dihedral angles of one type are input. To avoid complicated subscripting, desig- 
nate the cone angle types by B and<;6, and the dihedral angle type by v. Thus, 
the input data sets are , . . • , ^ • • • , » 9*1 ■ • • » • Let the 19 cor- 
responding measurement times be ^ , t ° ^ * -A-lso assume a linear dy- 

namic model, and suppose that bias b^ on just the second type of cone angle data 
is also to be estimated. Then the state vector is 


cx 1 


[a^ dj b^J ' 


(35) 


and the vectors and matrices in the differential correction algorithm (15) are 
structured as follows: 
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The partials in (37) and computed angles 6 , in (39) are evaluated about the cur- 

rent state estimates a^^, . . . , dj, 6^ at the iteration in question. Relevant equa- 
tions are (2), (3), (11), and the linear version of (12), with t in (12) replacedby 
the appropriate measurement time from the set t^j , . . . , tq,g. 

4.4 Iterations and Convergence Criteria 

Starting with an input state estimate , (15) is implemented iteratively, with the 
"estimate x at each step replaced by x + Ax for the succeeding step. The process 
continues until the state corrections (Aa^ , . . . , A d^ , A b ^ in the preceding 
example) are simultaneously less in absolute value than individually assigned 
input bounds. This defines convergence, and the updated state after addition of 
these final corrections is taken as the attitude (and bias) solution. The operation 
also ends if convergence has not occurred after a certain maximum number of 
iterations, which is assigned as an input parameters. 
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Because of the way in which a angle is defined (Section 2.2), a "boundary line" 
discontinuity exists at ^ = 0 which can cause erroneously high residuals to occur 
near this point. For instance, if measured ^ = 1° and computed ^ = 359° , then 
formally the residual is ^ = 358° , whereas actually a corrected residual of 
+2° is desired. This condition is handled with proper logical control. 

4.5 Data Rejection Procedures 

Though the techniques used in GCONES and in DCCONS (graphics counterpart of 
GCONES) are similar, both will be described in this section for completeness. 

4. 5. 1 Residual Editing Method of GCONES 

Due to the variety and nature of sensors and types of data which can use this 
technique some method of screening input data for consistency is desirable. The 
followii^ residual editing method has been Incorporated to. be exercised at user 
option. 


The average angle residual for each type of data in both classes is calculated by 


^AUG 


Z '"‘I 

i= 1 


(40) 


n 


where n is the number of angles of the particiilar type. 


Then these average angle residuals for all types are averaged to obtain an av- 
erage residual for all data. The editing process continues by comparing the 
individual angle residuals to an input multiple of the computed average angle 
residual for all data. All angles whose residuals are higher than the specified 
multiple of the average have the associated weights set equal to 0. 0 and are 
thus not considered in the remainder of the computations. 


4, 5. 2 Residual Editing Method of DCCONS 

The present writeup will use the symbol K to indicate any set of cone or dihedral 
angle data which contains at least one "useful" data point. The K notation will 
be convenient here because it eliminates the necessity of referring to the cone 
and dihedral angle data classes separately. Let M indicate the total number of 
such data sets. Then K = 1,2 -- M. Leta^ indicate the "useful" data points 
in set K and let Nk be the total number of such points inset K. Then = 1, 2, - - 
Nj^. In the preliminary computations of its residual editing operation, DCCONS 
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considers the ’'useful” data points to be those whose time is not flagged and (2) 
whose weight WGHT is greater dian or equal to zero. 

Let RHO (K,aj^) be the residual of data point . RHO (K.oij^) is defined to be 

RHO (K,o;j^) = GAMMA <K,a^) - THETA (K.ctj.) . 

where GAMMA (K,o!j,) and THETA (K,a^) are the measured and estimated cone 
or dihedral angles respectively of point 0 ;^^, 

The residual editing is performed in GSTATl. The user specifies the residual 
editing option by setting IOC to 1. When the option is used, a quantity AVGRHO 
is computed for each data set. The AVGRHO of any data set which contains no 
useful points (i, e. no points whose times are not flagged) is set to zero. The 
AVGRHO' s of the other sets (K) is computed by 

Nk 

AVGRHO (K) = |RH0(K,Oj^)| (1) 

= 1 

The summation in Eq, (1), as well as Nj^, includes all data points whose time 
is not flagged. 

The next step in the current residual editing option of DC CONS is the computation 
of the numerical values of two quantities designated as SUMAV and AVG 

M 

SUMAV = AVGRHO (K) (2) 

K> 1 

AVG = - * SUMAV (3) 

M 

The final step in the residual editing operation is to multiply by -1 the weights of 
all data points whose residual is greater in magnitude than ISMULT * AVG. All 
data points (including those whose weight previously was set negative) are 
cheeked. After the weight of a data point has once been set to less than zero, 
it can never be reset to a positive value. The weights of data points whose time 
is figged are not necessarily set to less than zero by the residual editing opera- 
tion; such points are eliminated from processing in COFSM by other logic. 
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4.6 Statistical Information 


Many types of evaluative criteria can be associated with least squares differ- 
ential correction processes. In order to keep the basic technique as simple as 
possible, however, the statistical parameters are confined to the following 
standard fundamental forms, 

• Covariance matrix of errors in the converged state estimate. This is 
given by (see Reference 9) 


[AJ = {[H] ' [W] 


(41) 


which is a direct by-product of the differential correction algorithm (15). 


• Weighted mean of residuals for each data type in both Classes 1 and 2, 
given by (see Reference 13) 




Thus for the example of Section 4.3, the weighted means are 


a 


_ i=l 


i = l 

2 ^ 


_ i=l 
= 




(42) 


(43) 


(44) 
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Pip 


-f,) 

i=l 


2]w, 

i = l 


(45) 


• Weighted RMS (root- mean- square) of residuals for each data type in both 
Classes 1 and 2. Based on the material in Reference 13, this is defined 
in the program by 




For the example of Section 4.4, 



(46) 


(47) 


(48) 


where is given by (43); and analogous expressions hold for o-. 
ana cr^. 
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e Sum of weights for each data type in both Classes 1 and 2. When 
several different types of data are used, these sums give a general indi- 
cation of the relative contribution of each data type to the final solution. 
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APPENDIX A 
GCONES 
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c- 
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c. 

c. 

c. 

c. 
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c. 
c. 
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c. 
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c. 

c. 

c. 


NAVE: SUBROUTINE GCONES - GENERALIZED CONES 
AUTHCR; F. KNCGP, IBR 

purpcse: 

TNIS SUBROUTINE COVPLTES THE SPIN AXIS ATTITUDE OF A SPACE- 
CRAFT. HRCV SETS CF cone ANGLES AND KNOWN AXES ANO/CR SETS OF 

ee CETERviNec va>, at option, be the coefficients of time dep- 

CIHECRAL ANGLES ANL XNGWN VECTORS. THE SPIN AXIS ATTITUDE TO 
ENCENT POLYNOMIALS IN ALPHA AND DELTA. ANOTHER IMPORTANT 
FtATLRE ALLOWS OETERMNATICN CF CONSTANT BIASES IN THE CONE 
ANC/CR dihedral ANGLES. THE METHOD EMPLOYED IS ITERATIVE LIN- 
EAR DIFFERENTIAL CCRRECTION. 

CCMPUTER; S/360, CCRE: UK, COMPILER: FORTRAN-H 


CALLING SECUENCE EXPLANA1ICN: 


TZERC - THE INPLT REFERENCE TIME FOR THE ALPHA AND DELTA 
PDLYNCMIALS, I.E.: 

ALPHA(T)= AC + Al*<T-TZ£RO) + A2* I T-TZ ERO ) + ... 

ALP - AN INPUT ARRAY CONTAINING THE INITIAL ESTIMATES OF 
THE ALPHA CtEFFiCIENTS TO BE SOLVED FOR. ON RETURN 
THIS ARRAY WILL CONTAIN THE FINAL VALUES DETERMINED 
BY GCONES UNITS CF CEGS, DEGS/TIME, DEGS/T IME**2, 
ETC', WHERE IHE UNIT CF TIME IS THE SAME AS FDR TIMEl, 
TIME2, TZERC, DEL > 


CEL - SAME AS ALP BUT FOR DELTA COEFFICIENTS 

ALP8ND - AN INPUT ARRAY CONTAINING THE LOWER BOUNDS FOR CORR- 
ECTICN TO THE ALPHA CCEFF IC lENTS , CONVERGENCE OCCURS 
WHEN ALL COFRECTICNS ARE SIMULTANEOUSLY LESS THAN 
THEIR CCRRECTION BOUNDS 

CELBND - SAME AS ALPBNC BUT FGR THE DEL TA COEFFICIENTS 

NCCF -.THE INPLT NLMBER GF CCEFF IC 1 ENTS. FOR ALPHA AND DELTA 


C;. TO EE SCLVEC FOR (MUST BE GE 1 AND LE A) 

C. ■ 

C. MAXIT - THE INPLT MAXIMUM NUMBER CF CORRECTION ITERATIONS TO 

C. BE PERFCRMEL 

AN OUTPUT ARRAY CONTAINING THE STATE COVARIANCE 
AND CORRELATION ELEMENTS FOR THE FINAL SOLUTION. 
CCRRELATICN ELEMENTS ARE IN THE UPPER TRIANGLE, 
COVARIANCE ELEMENTS ARE IN THE LOWER TRIANGLE. 
DIAGONAL ELEMENTS ARE COVAR I ANCE ELEMENTS. 


C. 

C. 

C. 

C. 

C. 


CCEF 
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C. 

C. 

c. 

c. 

c. 

c. 

c. 

c. 

c. 

c. 

c. 

c. 

c. 

c. 

c. 

C- 

c. 

c, 

c. 

c, 

c. 

c. 

c. 

c. 

c. 

c. 

c. 

c. 

c. 

c. 

c. 

c. 

c. 

c. 


1V«RT - THE INPLT LEVEL CF i^FORMATIV£ PRINTOUT DESIRED: 

>= 1 . - PhINTCLT error message IE PROCESS ARNORMAL-. 
LV TERMINATES 

>= 2 - PRINTOUT ALL INPUT SCALERS AND INITIAL 
STATE ESTIMATES AND BOUNDS 
>= 3 - PRINTOUT TEE INPUT POINTER ARRAYS: 

IFRS11, NTVPEl, IFRS12, NTYPE2 
>= A - PPINTOL'T FINAL STATEt COVARIANCE ELEMENTS , 
AND RESIDUALS AT END CF PROCESS 
>= 6 - PRINTOUT SAME INFORMATION AS A ABOVE, BUT . 

AT THE END OF EACH ITERATION 
>= 8 - PRINTCLT ALL INPUT DATA ARRAYS 
>=10 - PRINTOUT tCEFFICIENTS CF MATRIX ECUATION 
AT EACH ITERATION 

>=12 - PRINTCLT INTERMEDIATE VALUES CURING SUMMA- . 

T ION stage CF EACH ITERATION 
>=1/V - PPINTfUT ACCITIONAL INTERMEDIATE VALUES 
DURING SUMMATION FCK DIHEDRAL ANGLE DATA 

[CUT - THE INPUT LCGICAL FORTRAN' DEVICE NUMBER FOR SPECIFIED. 
PRINTOUT I NORMALLY =E) 


IRET 


RETURN INDICATOR: 

= 0 - PROCESS CONVERGED 

= 1 - PRCCbSS TERMINATED OUE TO MAXIMUM, ITERATIONS 
REACHED (MAXIT) 

= 2 - PROCESS DIVERGED, I .E . A CORRECTION ELEMENT 
EXCEEDED 36C.0 

= 1 - A SINGULAR MATRIX WAS ENCOUNTERED - PROCESS 
COLLC NOT CCNTINUE 

= A - OVER 5 BIASES WERE SELECTED TO BE DETERMINED 
= 5 - NCCF IS CUTSIDE ALLOWABLE RANGE 
= 6 - ALL DAIA IS WEIGHTED 0.0 


ISMULT - THE MULTIPLE CF THE AVERAGE RESIDUAL TO BE USED IN 
RESIDUAL EDITTING 


TIMEl - AN INPUT ARRAV CONTAINING THE OBSERVATION TIMES FOR 
CLASS I DATA (UMTS MUST BE CONSISTENT WITH TIMIE2, 
TZERC, ALP, DEL) 


AXISl - A TWO DIMENSIONAL INPUT ARRAY - AXIS1{3,N) - CONTAIN- 
ING THE INERTIAL UNITIZEO CONE AXIS VECTORS FOR CLASS 
1 DATA 

ANGl - AN INPUT ARRAY CONTAINING THE CONE GENERATING ANGLES 
(IN DEGREES) IN THE RANGE 0-180 FOR CLASS 1 DATA 


WGHTl - AN INPUT ARRAY CONTAINING THE WEIGHTS TO BE APPLIED 
TO THE CSSEPVATIGNS CF CLASS 1 DATA (NORMALLY THE 
INVERSE VARIANCES IN DEGREES) 


IFRSTl - AN INPUT ARRAY CF POINTERS INDICATING THE START POSI- 
TIONS OF EACH TYPE OF CLASS 1 DATA WITHIN THE ARRAYS 
TIMEl, AXISl, ANGl, WGHTl. THUS THE FIRST ELEMENT CF 
IFRSTl IS THE INDEX NUMBER OF THE FIRST OBSERVATION 
CF THE FIRST TYPE OF CLASS 1 DATA WITHIN THE ARRAYS 
TIMEl,..., VGHTl. THE SECCND ELEMENT Of IFRSTl IS 
THE INDEX NUMBER OF THE FIRST OBSERVATION Of THE SEC- 
CNO TYPE CF CLASS 1 DATA WITHIN THE ARRAYS TIMEl,..., 
WGHTl. ETC. 
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c. 

c. 

c. 

c. 

Ci 

c. 

c. 

c. 

c. 

c, 

c. 

c. 

c. 

c. 

c. 
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c. 
c. 
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c. 
c. 
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c. 
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c. 
c. 
c. 
c. 
c. 
c: 
c. 

c. 
c • 
c. 
c. 
c. 
c. 
c. 
c'. 
c. 
c. 


KTYPEl - AN INPUl ARPAY CONTAINING OBSERVATION CCUNTSt ONE fOR 
EACH TYPE OF CLASS I DATA (=NCLAS1), THE VALUE OF 
EACH ELEMENT IS THE NUMBER OF OBSERVATICNS CF THAT 
TYPE IN THE. DATA ARRAYS TIMEl, AXISl, ANGl« WGHTl 

8IAS1 - AN INPUT ARPAY CONTAINING INITIAL ESTIMATES CF BIAS 
IN CEGREESf ONE FCR EACH TYPE OF CLASS 1 DATA 
( = NCLAS1). IF THE VALUE OF AN ELEMENT IS =9S'?9999., 
BIAS IS NCT UETERMINEC FOR THAT TYPE. IF IT IS NOT 
=99S999S., eiAS IS DETERMINED AND THE FINAL DETERMIN- 
ED VALUE IS RETURNED IN THE SAME ELEMENT. NC MORE 
THAN 5 BUSES IN TOTAL FROM CLASS 1 DATA AND CLASS 2 
DATA MAY BE OETERMINEG 

BENOl - AN INPUT ARPAY CCNTAINING THE LOWER BOUNDS IN DEGREES. 

FOR CCRPECTICN TC THE ASSOCIATED BIAS ELEMENTS FOR 
EACH TYPE OF CLASS 1 DATA (=NCLAS1>. IF THE ASSOC- 
IATED BIAS ELEMENT =9999999.0, THE EBNOl ELEMENT IS 
NOT USED 

RHLSTl - A ThC DIMENSICNAL CUTPUT ARRAY - RH0ST1(3,N> - IN 
WHICH FINAL RESIDLAL STATISTICS FOR EACH DATA TYPE 
ARE RETLRNEC: 

, <1,N) = WEIGHTED SUM OF ANGLE RESIDUALS 
12, M = WEIGHTED SUM CF SQUARES OF ANGLE RESIDUALS 
(3,N) = SLM CF WEIGHTS 

NCLASl - THE NLMEER CF TYPES CF CLASS I DATA IN THE ARRAYS 
TlMEl, AXISl, ANGl, WGHTl, IFRSTl, NTYPEl, EIASl, 
BBNCl, RHCSIl 

RHCl - AN CUTPLT ARRAY CCNTAINING THE ANGLE RESIDUALS FOR 
ALL TYPES OF 'CLASS 1 DATA 

RESIDl - AN CUTPLT ARRAY CCNTAINING THE MEAN RESIDUAL FOR 
EACH TYPE CF CLASS 1-OATA 

STCVl - AN CUTPLT ARRAY CONTAINING THE STANDARD DEVIATION ! 
FCR EACH TYPE OF CLASS I DATA 


TIME2 - SAME AS TIMEl BUT FCR CLASS 2 DATA 

AXIS2 - A TWO DIMENSICNAL INPUT ARRAY - AXIS2(6,N) - CONTAIN- 
ING THE. TWO ORDERED, UNITIZED VECTORS FOR EACH DIHED- 
RAL ANGLE CPSERVATTCN; I.E. THE FIRST VECTOR IS IN 
U,N),(<,M,(3,N) ANC THE SECOND VECTOR IS IN I4,N) , ' 

ANG2 - AN INPUT ARRAY CONTAINING THE DIHEDRAL ANGLES UN 
DEGREES) IN THE RANGE 0-360 FOR CLASS 2 DATA 

WGHT2 - SAME AS WICHTl BUT FOR CLASS 2 DATA 

IFRST2 - SAME AS IFRSTl BUT FCR CLASS 2 DATA 

NTYPE2 - SAME AS NTYfEl BUT FCR CLASS 2 DATA 

BUS2 - SAME AS BIASI BUT FCR CLASS 2 DATA 
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c. 

C. 
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c. 

c. 

c. 

c. 


EBNC2 

PHCST2 

NCLAS? 

RBC2 

RtSIC? 

STCV2 

1RESID 

1STDV 


SAPE AS BENCl BUT FGH CLASS 2 DATA 
SAME AS RhOJTl BUT FCR CLASS 2 DATA 
SAME AS NCLASl BUT FCR CLASS 2 DATA 
SAME AS RFC 1 BUT FOR CLASS 2 DATA 
SAME AS KESIDl BUT FCR CLASS 2 DATA 
SAME AS STDVl BUT FOB CLASS 2 DATA 
CCM.BINEC TOTAL MEAN RESIDUAL (DEGREES) 
COMBIN6C TOTAL STANDARD DEVIATION (DEGREES) 


CPTICNS: 


A. DYNAMIC ATTITLCE MAY BE SPECIFIED WHERE ALPHA AND DELTA ARE 
TIME DEPENDENT POLYNOMIALS (UP TC 3RD DEGREE) AND THE 
CCEFFICIENTS ARE SOLVED FCR AS THE STATE VARIABLES. WHEN 
USING THIS CPTICN, THE ALP AND DEL ARRAYS REPRESENT THE 
CCEFFICIENTS: AC,Al,A2,A3, D0t01.D2,D3, RESPECTIVELY, OF 
TFE FOLLOWING EXPRESSIONS; 

AIT) = AO + A1*(T-TZ£RQ) + A2# ( 7- TZERO) **2 + 
A3=MT-TZER0)**3 

C(T) = DC 4 CL4(7-TZERO) ♦ D2# ( T-TZERC ) ♦*2 4 
03* {T-TZE«0)**3 

e. EACH CLASS CF DATA, CLASS 1 - CCNE ANGLE AND CLASS 2 - 
DIHEDRAL ANGLE, MAY EACH BE COMPOSED OF ANY NUMBER OF 
TYPES CF DATA, I.E. NCLASl AND NCLAS2 MAY BE ANY NCN-NEG- 
ATIVE NUMBERS JLSI SO LCNG AS THERE ARE NCLASl ENTRIES IN 
TFE IFRSTl ANC NTYPEl ARRAYS AND NCLAS2 ENTRIES IN THE 
IFRST2 AND NTYPE2 ARRAYS 

C. WITHIN THE INPUT CATA ARRAYS, UNDESIRED CBSERVATICNS CAN 
BE FLAGGED BY SETTING THE OBSERVATION TIME 
SLCH CBSERVATICNS WILL 8E CCMPLETELY IGNORED 

UP TO 5 CCNE ANC/CR DIHEDRAL ANGLE BUSES MAY BE SOLVED 
FCR IN ANY COMBINATION WITHIN THE VARIOUS CATA TYPES AND 
CLASSES 

E. ANY NUMBER CF DATA GBSERVATIGNS MAY BE PRESENT WITHIN ANY 
TYPE (]F CATA ANC ANY NUMBER OF TYPES MAY BE SPECIFIED 
WITHIN EITHER CLASS 


F. A FULL RANGE CF INFCRMATIVE PRINTOUTS MAY BE SPECIFIED 
BY THE INPUT PARAMETER IWRT 


! restrictions: 

I A. NCOF MUST BE GREATER THAN CR E(SUAL TO 1 ANC LESS THAN OR 

. ECUAL TO 9 
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e. CCEF f^LST BE CI^E^SIO^EC L/IRGE ENOUGH TO CONTAIN ALL 
COVARIANCE ANC CCFRELATION ELEI^ENTS. IT SHOULD BE 
CIFENSICNEC CCEF(N,N> WHERE iM = 2*NCOF + NUMBER OF BIASES 
TO BE OETERMINEC 

C. AXISI AND AXIS2 MLST CONTAIN THE INERTIAL COORDINATES OF 
UNITIZED VECTORS 

0. THE ANGLES IN THE ANG2 ARRAY MUST BE RANGED FROM C TO 360 
DEGREES 

E. THE VECTOR PAIRS IN THE AXIS? ARRAY MUST BE CROEREO, l.E. 
THE DIHEDRAL ANGLE IS HEASUHEO FROM THE PROJECTION OF THE 
FIRST VECTOR ONTO A PLANE NORMAL TO THE SPIN AXIS, AROUND 
TO THE PRGJECIICN OH THE SECOND VECTOR ONTO THIS PLANE, 
POSITIVE IN TIE SENSE OF POSITIVE ROTATION ABOUT THE SPIN 
AXIS 

F. THE UMTS OH TIME IN THE INPUT QUANTITIES T I ME 1 , IIME2, 
TZERU, ALP, DEL MAY BE ARBITRARY BUT MUST BE CONSISTENT 
{THE SAME). THE LNITS SHOULD, HCWEVER, BE SELECTED SO THAT 
THE M.AXIMLM E>PFCTED STATE CORRECTIONS NEVER EXCEED 360.0, 
HHICH IS DEflNEC AS DIVERGENCE 

G. CIHECRAL ANCLE (CLASS 2) GBSERVATICNS WHICH CIFFEF FROM THE 
COMPUTED CIHECRAL ANGLE EASED ON THE CURRENT STATE BY MORE 
THAN SC.C DEGREES, WILL BE IGNORED (WEIGHTED TO 2tP0) FOR 
THAT ITERATION 


SU'ERCUTINCS CALLED: 

. A. CCFSUM ~ COEFFICIENT SUMMATION. THIS IS A S PEC I AL IZED ROUT- 
INE USED ONLY BY C-CCNES TO CCMPUTE AND SLM THE 
ELEMENTS OF THE MATRIX TO BE INVERTED EQR EACH 
ITERATION. 

E. MINV - MATRIX INVERSION. THIS IS AN IBM ROUTINE FROM THE 
SCIENTIFIC SUBROUTINE PACKAGE (SSP) 


INPUI/CUTPUT CATA SETS 
A. READ CNLY - NONE 
e. READ AND WRITE - NONE 

C. WRITE CNLY - FTXXFOCl . (XX IS SPECIFIED BY TOUT) CONTAINS 
INFORMATIVE PRINTOUT SPECIFIED BY IWPT 


REMARKS: 


A. 


IF ONLY ONE CLASS OF DATA IS TC BE INPUT, 
FCR THE UNUSEC CLASS MAY BE , UND I MENS ICNEO 
JUST SC LONG AS NCLASI (CR NCLAS2J IS SET 


THE ARGUMENTS 
DUMMY VARIABLES 
TO 0 



or)rlnor)Or>noonnor»nr^nononooo^:onnnnoonrlooonr^^^{'^oo^>nnoo orinnnoooooo 


P. IF BIAS IS ^GT TC BE CETERMNEO FCR A CERTAIN TYPE DF DATA, 
TEE ASSCCIATEC VALUE IN THE 6IAS1 CR BIAS2 ARRAY SHOULD BE 
ECUAL TO S9S9S9. 

C. THE CUANTITIES RETURNED IN THE RHOSTl AND RHCST2 ARRAYS 
><AY BE USED TC CONFUTE THE FEAN DEVIATION AND STANDARD 
DEVIATION QP FIT FOR EACH TYPE OF DATA 

D. CCNVERGcNCt IS REACHEC ONLY WHEN ALL STATE VARIABLE CORR~ 
ECTIONS ARE S IMLL TANECUSL V LESS THAN THEIR CCRRESPONDING 

flCUNCS, INCLULINC BIAS ELEFENTS 

E- IF DATA OCSERVATICNS ARE SCREENED PRIOR TO INPUT TO GCONES, 
UNWANTED CBSERVATICNS PAY PE FLAGGED BY SETTING TFE ASSOC- 
IATED TIRE =9999999. 

F. THE ALP AND DEL ARRAYS CONTAIN CCE FF IC lEN'TS CF POLYNOMIALS 
AND ARE NCT, STRICTLY SPEAKING, AGCELEKATICN ANU JERK (RATE 
OF CHANGE CF ACCELERATICM AS THEY ARE FOR SOME OTHER 
MODELS 


REFERENCES: 

A. L.B. SCHLEGEL, "CCNES: AN ITERATIVE DIFFERENTIAL CORRECTION 
TECHNIGLE FCR ATTITLOE CETERM I N AT I CN CF A SPINNING SATEL- 
LITE", IBM ESC REPORT, CCNTRACT NAS 5-10022, MAY 1967 

a. "SURVEY AND EVALUATION CF ATTITUDE DETERMINATION TECHNI- 
QUES", IBM FSC REFORT TR-66-R, CCNTRACT NAS 5-10022, MAY 
1968, FP. A-IA TO A-2A 

C. "PADtC ASTRCNCMY EXPLORER ATTITUDE DETERMINATION SYSTEM 

(PAEAC5), VCL 111, SPIN AXIS ATTITUDE OETERMINAT 1 CN PROGRAM 
-CVCCN", IBM FSC REPORT, CCNTRACT NAS 5-10022, MARCH 1969 

r. “SYSTEM/3tO SCIENTIFIC SUBHCUTINE PACKAGE, VERSION 11, 
PROGRAMMER* S MANUAL", IBM FORM NO. H20-0205-2 


REVISIONS; 

A. F. KNCCP (01 AUG 1969) - ORIGINAL CODING AND TESTING 

e. F. KNCCP (2C JAN 1910) - MCDIFICATION TC CHECK FOP DIVERG- 
ENCE TC PREVENT IFC25AI ERRORS DUE TO ABSURDLY LARGE CORR- 
ECTION ELEMENTS 

C- F. KNCCP (2C JAN 1970) - REORDERING OF ERROR RETURN CODES 
INTO CRCER CF SEVERITY 

C. F, KNCCP (2C FEB 1970) - COMPLETE REVISION TC INCLUDE 
DIHEDRAL ANGLE DATA 

E. A, GEELHAAR L15 SEPT 1972) - ADCITICN CF SIGMA REJECTION 
CAPABILITY ANC REVISION CF CALLING SEQUENCE 
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c 

SliP.TCLT CCC^tS■ (72t-«C, ALP, CEL, ALRPMJ, DELB^D, NCOF, KAjUT, 

/ CCEf , IhRT, IGt r ,II!E T , ISPULT , 

/ TIREl, AXISI, ANGl, V>GHTl, IFKSTl, NTYPEl, BIASl, EBNDl, 

/ RHCSTl,^CLASl,PHCl,KtSlUl,S^CVl, 

/ UPE2, AXIS?, ANG2i hGPT2, IFPST2, MYPE2, 6IAS2, BBMD2, 

/ RHCSY2,NCLAS2, RHC2,RESIC2,S1DV2,TRESILI, TSTDV) 

C 

c 

CIPFASICN ALP(A), DtL(A), AlPBND(A), CFLBNDtA)^ CCVA«(91) 

C DlFENEICNS EGGAL Uj b DR 5CC lA THE FCLL□KI^G LIST ARE NOT 

C RESTRICTIVE, BG T ARE FEANT Cf,LY TO BE SUGGESTIVE CF TEE STRUC- 

C JURE CF THE ARRAYS 

DIRENSICN riPEKSCO), A X I S L ( 3 , 50C ) . ANGKjOCI, WGHTltSOC), 

7 IFRSTU5I, NTTPEHb), BIASKbl, BBKDKS), RHCST1(3,5) 

CIFENSICN T1FE2(5C0), A > I S2 I 6 , 5 C C I , ANG2I5CO), WGHT2I30C), 

/ lfftST2l5), FTVPF.2(5), LMAS2I5), BUNC2I5), RHOST2(3,5J 

c «««»» INTERNALLY ALLCLA1EL S P EC I F I C A T I C N S . 

DIPENSICN ALPfilAI, CELRIA), CCEF(13,13), CHNGIIB), CRHCSCI13), 

/ HHLll5CO),WHC2(bCO),STLVl(5),RFSIDH5),STCV2(5),«EEIU2(5), 

/ STCRl(l3),STCP2mi,CCF(l69) , A VG RHC I 2 , S' I ,NARE(2, 13) 

LATA RTCC.XRIAS / b 7. 29 S 7 f , S S SS R . / 

UATA NAVE/' ALP*, 'HA 1*,' DFL*,'TA 1',' ALP’, 'HA 2’,* DEL*, 

/ *TA 2',* ALP*,*HA 3*,* CEL'.'TA )',* ALP'.'HA A*,' L5EI*, 

/ *TA A*,* P1',*AS I',' P,I',*AS 2',' BI'.'AS 3',* HI*, "AS A', 

/ • E I ' ,*AS S*/ 

C 

C 

C Yt*** PRINTCUr AT CPTICN AH THE INPLT VARIABLES AND LATA ARRAYS 
C 

IF( 1GRT.LT.2 ) GC TG ICC 

C ***»>!■ WHITE HEALER LINE AND ALL INPLT NGN-ARRAY ITEP.S 

WRITE (ICUI,FCCC1 NCLASl, NCLAS2, T2ERO, NICCF, HAXIT, lERT, IQL’T 
c WRITE iNlilAL AFfITUUE COEFFICIENTS ANU CORRECTICN hiCLNOS 

WRITE (inuT,RC'lC) (ALPIll, ALPBNCm, LELfl), DELB M) ( i ) , I = 1 , NCOF ) 
C hRKE INITIAL BIAS E5IIFATES ANC CCRRECTIGN BOUNDS 

IF (NCLASl.LE.fi! GC TG 3C 
I T I T L F = 1 
tr: 2c I = UNCLAsi 
IF IE IASI I n . FC-XB I AS ) GC TO 2C 
IFi I T ITLE.Ei;, n WRITE (IOLT,8Q2C) 

IT n L E = ? , 

WHITE STCUT,HnAC) 1, ElASUll, ec-NCKIl 
20 CCN 1 INUE 
30 CONTINUE 

TMNCLAS2.LF,C) GC IQ 6C 


OOOIBBOO 

COOl(T900 

C0019000 

00019100 

C0019200 

00019300 

C0019AOC 

00019500 


ITITLC - 1 

LC 5C I = 1 ,NCLAS2 

IF I F IAS21 I I -E(;. XS IAS) GC ID 5(i 

IF ( ITITLE.EO.n WiUTE. (IQUT, 80301 

ITITLC = 2 

WRITE (ICUT,8CAC) I, eiAS2(ll, PeNC2lI| 

50 C.CNTINUE 
EC CONTINUE 

IF ( IWRT .LT. 3) CC TO ICC 
IF (NCLASl.LE.C) GC 1C UC 
UC 7fi I = l.NCLASl 
.)! = IFHSTUII 
N = MYFCl ( I ) 

J2 = Jl + K - 1 

E.R11E ( IUUT,e05C> I , N, Jl, J2 

IFIIWRT.GL.E .am;. N.GT.OI WRITE tlOUT,8C7(H (J, TIREltJ), 
/ ( AX ISl ( K, J ) ,R= 1 , 3 ) , ANGIIJ), WGhTl(J), J=J1,J2) 

70 CONT INUE 
80 CONI INUE 

IFINCLAS2.LF.C) GC 7C ICO 


00019600 

00019700 

00019800 

00019900 

00020000 

00020100 

C0020200 

00020300 

00020900 

C0020500 

00020700 

0002080C 

00020900 

00021000 

00021100 

00021200 

00021300 

C0021900 

00021500 

C0021600 



ooo o nno 


c 

c 

c 

c 


i;r <;c I = l,^CLA52 
Jl = [F«STZiI» 

K = M YPE? ( i ) 

J2 = Jl + Pi - 1 

i,RnF: iiOLT.ecfec) i* Nt Ji* j2 

1 1- I t V< R T . GC • £ .At\G. IlCurfflOPO) (Jt TI^'6Z(J)» 

/ ( AX I S2 [ K f J ) » K= 1 1 6 1 t Ai'JG2(J)t WGHT2tJ)t J = J1»J2) 

SO COM INGE 
IOC CCNIfMjb 

crbHUH: TOE ncreep ce angle biases tc be determned 

NBIAS = 0 

I E I NCL AS I .LL .0 ) CC 10 liO 
cr lie 1 = ItNCLASl 

i E ( P 1 A s 1 1 n .NE . xti I A £ 1 NEIAS = NBIAS + L 
lie CCMIINUE 
120 LCMIA.GE 

I E 1 ACL AS2. L£ .C) GC TG lAO 

oc nc 1 = i.N'CLASz 

1 F ( P i ASZtl) .M: . xe IAS I NRIiS - NDIAS + 1 
HO CCMlAUF 
lAO CC.AJTINUE 

CEECK PCK INVALIL lAPLT 
HIACCF.LTH. -CR. AiCOF.CT.A) GC TC TOGO 
IMNBIAS.GT.5) GO T F. 70 10 

CCPPUlt SOfc'cCKSIAMS FOP TEE SUKRATTCN 
N2 = \CCF + NCCE 

^|3 = N2 + NBIAS 

ivP = N? + 1 

NS = i\3 + 1 

IPl = 9 

IB 2 = IHl + NBIAS - 1 
LC OC J=1,N3 
CHNGUHC.O 
ISO CCNIINUE 

1M1IALI2C ITERATION tULNTER 
ISTEE = 0 

INITIALIZE TERN'INATICN CONTROL 
1 S 1 C 2 = 0 

♦ BEGIN PRCLESEING TCP THIS ITERATION 

200 CCNTINVJL 

1S1EP = ISIl P -> 1 

CCNVERT A1TITLUE CCEFflCIENTS TC RADIANS 
DC 2 1C I = l.NCCE 
Al PR I n = ALP ( ll/RTCO 
OFLPI ] ) = DELI I l/RlfD 
210 CCNTINLIE 

♦ CUT PATRIX G F' CO £ F F I C ! EN T S 
DC 230 I =ltN3 

DC 2ZC J =1,N3 

cct E ij, n = c.c 

220 CONTINUE 

DRHCSC ( I ) = C.Q 
230 CCMINUE 

I PI AS = N2 


00021800 
O0C219O0 
00CZ20QC 
00022100 
0OC222OO 
00022300 
OOC22AOC 
00022500 
C0022600 
00022700 
00022800 
C0022900 
G00231CO 
00023200 
C0023300 
C0O23A0Q 
0002350C 
00023700 
C002360C 
C0023900 
0OO2AO0O 
0002A10C 
C002A20Q 
0002A 300 
0002^AOC 
C002A500 
C002A600 
0002A700 

coozAaoo 

C002'»90Q 

00025000 

00025100 

C0025200 

QO025300 

00035100 

00035200 

00035300 

00035-400 

00035500 

00035600 

00035700 

C0035800 

00035900 

00036COQ 

00036100 

00036200 

00036300 

OOO36AO0 

0003650C 

00036600 

00036700 

00036800 

C0036900 

OOO37CC0 

00037100 

C003720C 

00037300 


««««« BEGI.J LOCP TC NAKE ALL SUPPATICNS FOR CLASS 1 CATA 


(CCAIE ANGLES)00037<.00 
00037500 


IF (NCLASl.LE.C) GC TG 3C0 
DC 2SC I = l.NCLaSl 
Jl = IFRSTK I) 

N = NTYFEI I I ) 

(; ««««« cut RESICUA'L SCMNAIICN VARIABLES 

RhCST 1( 1, I J = C-C 


00037600 

00037800 

C00379C0 

00C3800O 

00038200 

00038300 
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.(hCSlH2,I) = C.O O0O38AO0 

RHCSTUBfl) = 0.0 00030500 

IflN.LE.C) Gr TC 29C 0C0381C0 

iF(Bivisu ^.^c.XBIasl irios = reifis + i coobssco 

c CALL CCFSLF TC CCFPLTf ANO' SUI^ CCEFF 1C lENTS FOR THIE TYPE OF 00038700 

C CLASS 1 UATA 000388CO 

C. ..........GGOSS^OO 

CALL CCFSUf' (TIFEllJl), AXIS1(1,J1), ANGKJL), tyGHTlUl), N, 1, 3.COO39C0C 
! ALPR, DELR, BIASlU), IRIAS, NCCF, T7tRCt UBT, IDUT, 00039100 

/ CCEF ,CRKGStl iRhUST 1 ( I , I )., A VGRHD( 1 , I ) ,RHCl IJ 1) ) 

C 000 39300 

E90 CCIMIINUE ' 00039900 

300 CCNllKUE 00039500 

C . ' - 00039600 

c SEGIK LOOP TC WAKE ALL SUNWATILKS FCfi CLASS 2 DATA (OFEO ANGLE S ) CO 0 39 700 

C ' - 00039800 

IF (NCLA.S2.LE.C1 GC TO 9C0 00039900 

DC 19C 1 = I.ACLASi' C0O9OIO0 

J1 = irRST2(I) 000902CO 

N = MYPE2( 1 1 00090300 

C ZERC CUT RESICUAL SLWFATICr,: VAPIABLES C009Q500 

RFCST2n,I) = O.C 00090600 

RFCST2(2,n = C.O C0090700 

RECST213.I) = 0.0 00090800 

IF(A.LC.O) GG TC ?9C ' 00090900 

I F 1 e IAS2( I V.KE.XB IASI lElAS = lEIAS +1 0C0909C0 

c ***** call ccfslk Tl cckhute anc suf ccefficients fop this type of cooaicoo 
c ***** class 2 DATA CD0911C0 

C. C0O912C0 

call CCFSUP lTIFE2tJn, AX1S2[1,JI), ANG2(Jl), WGHT2(J11, N, 2, 6,00091300 

/ ALP9, CELR, UlAS2tIJ, I8IAS, NCCF, T/6RC, IV>RT, lOlJT, CCC919C0 

/ CCEF,CRhGSO,RFOS T2< I • U . AVGRFOl 2, I) ,RhC2( J1 )) 

C 00091600 

390 CCMIAUE 00091700 

900 CONTINUE , 00091800 

C ***** CCFSFS COrPLTLS CAlY L'IAGCNAL and LPPER right CFF-CIACCNAL 00091900, 

C ***** eLEYCNTS CF TEL CCEFFICIENT RATRtX RECAuSE IT IS A SYFWETRIC 00092000 

C ***** RATRIX C0092100 

C ***** CCRPLE TE LCAER LEFT G FF-D I AG CNA L ELEMENTS CF SYRRETKIC RATRIX COO922G0 
CC 9EC I = 2fN3 00092300 

N = I - 1 CC092900 

DC 980 J - l,i\ , 000925QC 

CDEFII.J) * CCEFU.i; C00926CO 

9CC CCNTINUE C0092TOO 

IFUVsRT.lt. ICI GO TC 59C C0092800 

C ***** hPITE CCEFFICIENTS CF SIRLLTANECLS ECUATICNS COO929C0 

VsRITE {IGLT.FIOC) 00093000 

UIJ 520 I = 1 ,N3 00093LOO 

WPITF (I0L'T,ri2C) ICr.EFUtJ), J=1,N3), CRMCSCIM 00093200 

520 CCNTINUE C0093300 

590 CENT INUE . 0009390C 

C ***** KESTRLCTLKE LCcF rath IX TC FLRI-AT EXPECTED PY IRR SSP - RINV 00093500 
K- = 0 00093600 

DC 595 I = 1 ,N3 00093700 

■ DC 595 J = l,N3 0OG9380C 

K = K ♦ I C00939C0 

CCF(K)=CCCF( J, I t 

59 5 CCf'TINUi-: 00099100 

c ***** CALL lOR, SSP RCLTINf. MNV TC INVERT CLEF RATRIX Q00992C0 

C 00099 30C 

CALI MNV(CCF,N3,CET,STCR1,STCP2) 

C..... ...00099 500 

IF ICET. EL.O.G) CG TC 7020 00099600 

C ***** CALCUCAIE CCRRFLATiCN MATRIX, CCRBINE V.ITH COVARIANCE MATRIX 
K=C 

CC S5C l=liN3 . 
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CT J = 

K = K + 1 

a F M J , 1 > = CF F ( K ) 

r:c 5b'3 i^i.N^ro 

H=l + 1 

LC tZS J'II,N3 
T =t( f-F( I . I iKCCtF ( Jf J) 

I F( ) .LF -C. U CC tC 55^ 

cctM 1 , j)=ccf;f( 1 , j) / scRi n ) 

GC u 

CCFrvi*Jj'^ 49 # 

C f'tLIIfLV CCV&PUUCE MfTPIX ev VECTOR CF RHO 

I V««** f.Cl,ARCC CERIVRTIVFG Tf CtiTAIN ATTITCOE STATE CORRECTICNS 
K = C 

EC sec ! = ltN3 
CF EG ( M = (UC 
DC sec J = 1,N;3 
K, = K ♦ I 

CFEC ( t I -Ch\G ( n +CCF (K l + [KFCSC t J ) 

560 CCMiMjF 

re ( I s rop.EE.c i cc re e i c 
c SET tECICATCR TC 'ccfneRGrc 

IPFT ^ C 

cc f:Ct I == 1,NCCF 
c CFECK FOR EC \-CCE V ERG FNCF 

IF ( ALSCCHEC ( 2* I-l n -GT. ALPBED( 1) 1 IRET = I 
IF ( APSIChEG ( 2=8' [ 1) .GT.CeLRECI I 1 ) IREF = 1 
C CFtCK FOR FIVERGEEtC 

IF(AESICHEG(2^I-1)) -GT. 360.0) GC TO 7C30 
IFiABStCHNG(2’Fn ) .GT.36C.C) GC TC 7C30 

fcC'O GCwtiEUE 

C #«:«** CHECK FCR CrVERGEeC*^ CR CCEVERGEECt OF BIAS FLtREETS 

I F ( AB I AS-LE- C) GO TC tCf 

K = K 2 ■. 

IFIKCLASI.LE.C) GC to 6C4 
DC 6C2 I = l.NCLASl 

JF( el ASl ( M .EC.K8IAS) GE TO 6C2 

K = K + I 

IFt AES tCHNG ( K) ) .GT.E6^C 1 m ) IRET = 1 
IFtAPStCHNClK) J.GT.36C. C) GC TC 7C30 
6D2 CCNTINUE 
60 A CCMINUE 

IF(KCI-AS?.LF.C) GC TC 6C8 
L'C 6C6 I = 1,NCLAS2 

iFteiAS2i n.Et'.xeiAs) gc tq 6C6 

K = K -F I 

tF{ ABSICHNG (K 1 ) .GT. BBAU2 ( n ) IRET = 1 
IF ( ABS( CHKG (K) ) .GT. 36C. C I GC TC 7C30 
6C6 CC^TI^UE 

ece ccntimjf 

610 CCNTINUE 
IX=C 

1F( H>«T.LT.R.CR.nWRT.LT,e.AND.ISTOP.ECi.O) ) 1X=1 
IFt IX.NE.C) CC TC 625 

C 4 ^:*** WRITE CCNeiNEC COVARIANCE - CCPRELATICN MATRIX 

IF (AEIAS.LE.O) WRITE tICUT,fi2S0) (NAMEd,!), NAMEt2,I)f I=lfN2) 
IF(NBIAS.GT.C) WRITE (ICUT,e250) tNAMEdtn* NAp*£(2fdf 1 = 1. N2>, 
/ INAMEU.d, NAMEIR.d, 1 = IE1,I82) 

DC 62C I = 1.N3 

II = 1 

IFd.GT.N2) 11 = I - N2 + 0 

WRIT El I EDIT ,? 26 C) NAFEd.Id.NAMB(2,Id,( COEF < J . d , J=1 .N3) 

620 CCNT INUb 


00044800 

C0044900 

COQ45000 

C0Q451C0 

000452CO 

00045300 

00045500 

000456CO 

000457CO 

C004580C 

00045900 

0OC46OOO 

00046100 

00046200 

COO463O0 

C004640Q 

00046500 

C004660C 

C0046700 

00046800 

C00469CO 

C0047COO 

00047200 

00047300 

00047400 

C0047500 

Q004760C 

C00477CC 

C0047800 

00047900 

C0048100 

00048200 

00048300 

CQ048400 

C0C485C0 

000486CO 

000487CO 

C0048800 


00049200 

00049300 

00049400 

00049600 

C0049700 

00049800 

COOtiOlOO 

00050200 
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c CC^PUTL- ANC pm^rcul STATISTICS OF RESIOUALS 

c 

c SIATISTICS (OH CLASS 1 TYPES 

625 V.TUC .0 

SIfll = C.O 
S. f P I = C , C 

IF(NCLASl.LE.C) GC 10 6 A 0 

1 T n L 6 = I 

CC 63 C ! = ItNULASI 

RESILII I) = O.C 

SICVIU )= 0 .C 

k = HK 0 STU 3 . I > 

IFIV.LF.C-Ct GC TC t 3 C 

51 = RhCSrUl.t )/U 

52 = SCRTlAMAXn0.fRHCSTlt2,n/V.-Sl*Slll 

IFl IX.FC.G.ANG, ITITLE.EC. 1 ) WRITE! I CUT, 0 2 701 
HESICU I) = Sl 
STOV HI )=S? 

IT ITLE = 2 

IFIIX-EG.C) WR ITH lOLT ,e 2 RC) l,SliS 2 tW 

wTl = WTl ♦ W 

SI A I = STAl + RMOSni 1 , 1 ) 

STP 1 = SIfi 1 + RHCST 112 , 1 ) 

630 CCM INGE 

IF |WI 1-LE-O.C) GO TC 6AC 
SI = STAl/WTl 

S? = StRTlAKAXl( 0 .,STEL/wn-Sl*Sl)l 
IFllX.FC.O) WRITenfUT ,£25 5 ) Sl,S 2 ,WTl 
640 CCM INGE 

C Xt*** STATISTICS FOR CLASS 2 TYPES 
WT 2 = 0.0 
STA 2 = C.O 
ST 62 = C.C 

IF (NCLAS 2 .LC.C) GC TO 6 S 8 

ITITLE - I 

OC 65 C I = 1 ,NCLAS 2 

RES IC 2 ( I )= 0 .C 

srcv 2 (i)=o.o 

W = RHGS 1213 , 1 ) 

IFlW.uE.U.O) GL TC 6 bC 
SI = RHCST 2 I I, I )/W 

S 2 = 5 CRTlARAXl(C.,RHCST 2 l 2 ,l)/h'Sl*Sl)) 

IFI IX. CC.C.ANG. ITITLE. EC. 1 ) V>RlTEnCLT ,0 20 01 

R 6 S 1 C 21 I)=S 1 

ST0Y2U ) = S2 

ITIUE = 2 

lEIIX.EL.O) WRITE! lOCT , 82 SC ) I,S 1 ,S 2 ,W 

V. T 2 = WT 2 + W 

STA2 = STa2 + RF0ST21 1,1) 

SIP 2 = STB 2 + HFCST 2 ( 2 ,U 
650 CCM INUE 

1 FU'T 2 .LE.C.C) GC TO 6 S 8 
SI = STA 2 /WT 2 

S 2 ^SCRr (A‘-AXHC. ■STE 2 /W 12 -SI* 51 ) ) 

If!IX.EC,C) WRITE I ICUT , 8255 1 S 1 ,S 2 ,WT 2 
658 CCM INUE 

c CCR 8 I 7 EC TCIAC SfATISIlCS 

ThGS 16 = 0.0 
TSTCV=C.C 
W = WTl + WT 2 
1 F(W. 60 . 0 . 0 ) GC TC 7 C 4 C 
SI = (SIAl 4 SfA 2 )/W 

S 2 =St;RT(AKAXllC.,(SieHSTe 2 )/W-Sl*Sl)) 
IftlX.EC.O) WRITE!! CUT,f 258 ) S 1 .S 2 
TRES 1 C=SI 
TSTCY=S 2 


C0050300 

00050400 

C0050500 

00050700 

C00508QC 

00050900 

CO051C0O 

00051100 


C0051200 

00051300 

00051400 


00051700 

00051900 

00C52CQ0 

00052100 

C005220C 

00052300’ 

00052400 


QOOOOIOO 

C0CC02C0 

CCCC0300 

0CCC040O 

00000500 

COC006C0 

C0C0070O 

OOOOOBOO 


OCC009QO 

ooooiocc 

COCOllOO 


C0001400 

COCOl6iOO 
0000 1 700 
C0001800 
CCQ0190C 
C0002COO 
OOCC21CO 


00002400 

COC02500 


QO0C270Q 

CC002800 
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tf.o CCM [NLiE 

c <**## IF FRCcess 1-115 eM:EC juf'P clt cf ccprection loop 

IM ISTOP.NE.C) GC TC VSCC 
c «**<•* CFLCk if PRCCcSS JHC'uLC terminate next tire 
IFIIRF r.EC.C .CR. I 5 TER .Gt, R A;( ! T J ISTCP = 1 
c L'PLATE ATTITUO'E STATE 

CC ICC 1 = l.NCCF 
ALP ( 1 ) = ALP ( 1 } + CPhG ( 1-n 
DEL (I) = DEL [ I ) + CPNG [2*^]) 

TCC CONTINUE 

IFTNEIAS.LE.Cl GC Tr 708 
K = NZ 

IFINCLASl.LE.C) CC. 1C 7CA 
Cr 7CZ I = l.NCLASl 
IF ( P IASI n ) -EC . xe [A S ) GC TU 102 
N = K + I 

eiASiii’/ = piASU n + CFNG(F) 

7CZ CTN 1 INUE 
7CA CCM INCF 

IHACLASZ.LE.C) Of. IG 7C8 
CC ?C£ 1 - UNCLASZ 
IFCPIASZn I.fiC.XBlAS) GC TO 7Q6 
K = K + 1 

fiiAszi I ) = eiAszi n + cfngikt 

7C6 Cr.MINUF. 

?C8 C’N'TINCT: 

IFf IRRT.lt. A) GC 7G 8CC 
IF ( ISTCF.EC.C) GC TC 71C 
c 4**4« RSITE PRCCESS TERMNATICNI MESSAGE 
ITURET .Ed.C) RRITE C!QLT,6TCC) 

IF 1 IREI .EC. 1 ) RRllE (IOLT,832C) 

71C CCNTINUC- 

IFIURT.LT.e .ANC. ISTOF.EQ.O) GC TD SCO 
C WRITE UPCATEC ATTITLDE STATE 

RFITE (IOOT,82GC) ISTFP 
DC 72C I = l.NCCE 
ACLC = ACPI I) - CH,JC(2«I-1) 

CCLC * CELI i ) ' CFNGTZ* I) 

WRITE (1GD1,8Z2C) ACLC, CHNG ( 2* I- IT f ALP 1 I) r CCLC, CHNuIZ*!), 
/ DECm 
720 CCMINUF 

IFINPIAS.LE.C) GC Tu 76C 
K = NZ 

IFINCLASl.LE.Ol GC TG 740 
iTine = 1 
DC 73C 1 = 1,NCLAS1 
IFIPIASIU J.EC.XeiAS) GC TC 730 
R = K ♦ I 

PCLC = ei&SUl ) - CFNGIN) 

IF< niTLE.EC.l) WRITE lIULT,a230) 

muE ^ 2 

WRITE (1001,8245) I, BCLO, CHNG(KT, GIASl(l) 

730 CCNTINOE 
74C CCMINOE 

IF (NCLAS2.LE.C) GC TO 7£0 
ITITLE = 1 
DC 75C I = l,NCLAS2 
IF(PIAS2U 1 .EC.XeiASl GC TO 750 

K = K + 1 

BCLU = eiAS2n ) - CHnGI K 1 

IF( I HUE. EC.l) WRIie (1007,8240) 

ITITLE = 2 

WRITE (ICL!T,8245) I, PCLO, ChNG(K), BUSZtl) 

750 CCNIINUE 
7t0 CCNTINUE 
ECO CCNITINUF 


COCC3100 

COC03200 

CC003AOO 

C0CO3500 

C0003700 

C0C038CC 

oooc3qcc 

C0C04CC0 

C0C042CC 

0OCO430C 

00004400 

C000460C 

COC04700 

O0C0480C 

000049CC 

00005000 

CQ0051CO 

00005200 

C0CO540C 

00005500 

C0005600 

C00057CC 

CC00580C 

CQC059CQ 

CCC06000 

COC06100 

C0006200 

COC06300 

C0CC6400 

00006500 

00006600 

C0CC6700 

00006800 

000069C0 

COC07000 

C0007100 

00007200 

C0C07300 

COQ07400 

00007500 

00007600 

00007700 

00007800 

00007900 

CQOOBCOO 

cocoeioo 

000082CO 

OOOOB300 

CC008400 

C0008500 

C0008600 

CQ00870Q 

C0C088C0 

00008900 

C0009COO 

COC09LOO 

00009200 

00009300 

CO0C940O 

COOQ950O 

00009600 

C000970C 

C0C09800 

00009900 
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o r. ri r> n 


c 

C ivflGHt CUT CATA HtTt- LASGH RESICUALS, IF DESIREO 

C 

IF ( is^ut T.u.c ) cc rc ;oc 

V.RUEIICUT. 82 A 6 ) ISi^liLT 

N = C 

SLf'AV=0.0 

If (^CL^Si,LE.C) GC TE FC6 
CC PC^i J = 1»NCLA51 
lF(MVPFlEJ)-Lt*C) GC TC 8C5 

1F( U8T.GT. IG) RRITEI iOET,H2A7) J , AVGRHC ( 1 , J ) 

IF ! A VGRFCn , J 1 .GT.9$8 . 1 GO TC 8C5 
N = N* 1 

SU'AV = GLr'AV + AVGRHC( li J) 
e05 CCM IKUE 

'8C6 lF(KCLA52.LE.Ct GG TC rll 
• CC ETC J=l,KGLAS2 

I FIN TYPE2I J ) ,LE.a I GC (0 8 IC 

IF ( n.RT.GT.10) Nl<ITEncl.T,82'i8) J , A VGRHO [ 2 . J I 

1F( fl/GRF0(2t J>.GT.9=,b.) GO TC 8 1C 

N=N+1 

SUN A V = SLR A V-* AVGRHC (2» J) 

ETC COM IKUE 
811 AVG=SURAV/N 

If 1 URT.GI. IG) RKim ICl T,S2AR) AVG 

IFIACLACi.LE.C) GO TC ^17 

CC 616 1=1,NCLAS1 

IF! MYPF 1 ( I ).L£ -C ) GC 10 B16 

Jl=IF;iSTim 

N^MYPE i ( n +J1- 1 

cc 815 J=J1.N 

IF I APS I RHCH jn .GT. ISRUL T*AVG1 V>GHTI(J!=0.0 

815 CCMIAUF 

816 CCNillNUE 

817 [FIKCLASZ.LF.C) GD TC 2CC 
CC 621 I=l.ACLAS2 
lFIMYPr2! n.LC-.C) GL 10 821 
Jl? IFRST2I 1 5 
N = MYPE?m-tJl-l 
DCP2'CJ=Jl»A 

IF(APS<PHC2Un.CT. !SFULT»AVC) RGHT2(J)=U,0 

620 CCMIAUE 

621 CCMIAUF 
GC U 2CU 

***** PBCCfcSS HAS TERMNATfiC 


***** errcr KETLRAS ^ 

7CC0 CCMIAUF 
IRtT = 5 
GC TC 7600 
7C10 CCMIAUfc 
I PE I = A 
GC TC 7600 
7C2U Ct'AMIMJf 
I PE T = 6 
GC TC 7600 
7C?0 CCNTIAUE 

IRET = 2 ' 

GC IL 7cU0 
7CA0 CCNl lAUF 

lftFT=:6 . 

7FCC CCNTIAUE 

IF ( IPR r.GE. I ) NRlIh (IfHT.,HS9'7) IRET 


COCIOOOC 

CCCIQICC 

C0010300 
C00116GO 
CCOl'1700 
0001 IBQO 
COCl 1900 
COOUCOC 
00012100 
000122CC 
C0012300 
00012^00 
00012500 
00012600 
C001270C 
00012800 
00012900 


COCMCOO 

C0013100 
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7<iCC Cr.MlINUE 

I r t 1«RT .CE .PI I TE 
RETLfiN 


< ICLT,83^C) 


f * 


«=>«**»** 

c 

8CC0 FCRRiT tlX, //t IX, 

/CNEE /, 

/n IV.RT icci* 

RCio frRi»;ii tix, /» IX, 

/ncNi: s : • , / • IX, ' 

/ ft » P N C t C E G 5 ' ? / : ! !■ 

8C2C; ECRNfi I ( IX , / , IX , 

/ IX, 'TYPE 

ec3C FCHPAX (IX, /, IX, 

/ IX, 'TYPE 

HCAO FCKPAT (IX, IR, F15 
PCbC FCRYAT (lx, /, IX, 

/ ' FAS', ixi, ■ 

/AJA ARRAYS') 
ecfcc rcRF'Ai I lx, /, ix , 

/ ' FAS' , lA , ' 

/ATA ARRAYS') 

8C7C! FCRYAT (IX, /,IX, * 

/-AXIS CONE ANGLE 

/ FlA.A, F12.A)) 

PCeC FCRRAT (IX, /, IX, ' I 

X-AxIS-2 Y-AX!S-2 
(lx, IR, F1£,E, 2X, 


00013200 
C0C13300 
CO013A0O 
00013500 

FCRFAT STATEf'ENTS ♦xiiF ♦**♦■>* Y ^Y^**** ♦*# C0013600 

COCl J70C 

SPECIFIED OUTPUT FRC^* SUBROUTINE GCCO013a00 
IX, ' NCLASl NCLAS2 TZtRC I^CCF HaXOOOU900 
, /, IX, 2IB, AIB) CCCUOOO 
MMIIAL AITITUCc CCFI FF I C ItNT S AND CCRRECTICN 6C0014100 


ALFUA(DF.a) CCRR RND(UFG) CELTA(CEG) 

>i FI A. A, rit,u, ri^.Xi, Fi6.6i) 

'CLASS I (CONE ANGLE) INITIAL BIASES', /, 
aiASUEG) CCRR BNCIOEG)') 

'CLASS 2 (CHEC ANGLE) INITIAL BIASES', /, 
DIAS(f.EG) ■ CCRR BNDUlFG ) ' ) 

.A, fit. A) 

•CLASS 1 (CCNE ANGLE) INPUT DATA TYPE', 12, 
CBSEFVATICNS, FROP', lA, ' TC, lA, ', IN THE 


•CLASS 2 (DUEL ANGLE) INPUT DATA TYPE', 12, 
CBSE FVAT ICNS , FROP', lA, • TC, lA, *, IN THE 


I 


CC0O01A20O 

C0(31A300 

COOIAAOO 

COOIA5CO 

C001A60C 

CC01A700 

0001A800 

0001A9CO 

Dcoaisooc 

C00151CO 
00015200 
CC0015300 
CCOl 5AOO 
2C00155CO 
C0015600 


/X IS- 1 
/ /, 


TIPE X-AXIS Y-AXIS 

FFIGFT', /, (IX, lA, F16.6, 2X , 3F10.6, 

C001570C 

TIPE X-AXIS-1 Y-AXIS-1 2-AOQ015800 

/— AXlS-2 DHED angle tiClGHT', 000159CO 

3F1C,6, 2X, 3F10.6, FlA.A, F12.A)) CC016000 


81C0 F(,RPAT 

( IX 

/ , 

/. 

8120 FCRPAI 

(IX 

8200 FCRPaT 

(IX 

/ 

//. 


2X ) 


IX ' P I PUL T ANEOU ' ATTIRjCE EQUATIONS COEFF 1C 1 ENTS ' 0001 fa TOO 

00016200 


ICE 13 .6 ) 

IX, 'ITERATFCN', n. 


IX, 


CLC ALPHA(CEG) 


/ ( 

B220 FCRPAI 
6230 FCRPAI 


CLC i;f:l'ia(o:g> cfangf(deg) 

(IX, 3F17.P, AX, •3F17.8) 

/, IX, 'CLASS 1 (CCNE ANCLE) BIAS STATE: 
CLD EIAS(OEG) CUANGE(UEG) 


00016300 

ATTITUDE AND UlAS S T ATE : ' 0001 6 AOO 
CFANGE(CLG) NEV, ALP HA I DEGGO 0 1 6500 


NEW CELTAIDEG)') 


1 IX, 


■TYPE 


82A0 FCRPAT tlX, /, IX, 'CLASS 2 (CFiEC ANGLE) BIAS STAT£:S / 


/, IX, 
NEW BIAS(CEG)') 

lx. 


82A5 

82A6 

B2A7 


/ '1YPF 

FCRPAT (IX, 
FCRPAI (IX,/ 
FCRPAT ( ■ 


r.LD !1IAS(D£G) CFiANGE(D6G) NEW BIAS(DEG)') 
lA, Mb, 6, FLA, 6, Fit. 6) 

residual EUIITING IS USED. ISPULT "',15,/) 
THE AVERAGE PHC VALLE FOR CLASS 1, TYPE', 13, 


CC016600 
00016700 
C0016800 
00016900 
00017COC 
C00171GO 
COCl 7200 


/ • LATA IS',F1C.A) 

B2A8 FCRPAIl* TFE AVERAGE FHC VALUE FOR CLASS 2 
/ < CAIA IS'.FIO.A) 

B2A9 FCRPA I ( lx,/, ' THE AVERAGE RHC VALUE FCR ALL TYPES IS'tFlO.A,/) 
8250 FCRPAT! IX,/, IX, 'CCVARIANCL-CCBRELATICN PATRIX 
/ lOX, 13UX, 2AA)) 

8260FCRPAT (IX, 2AA, 2X, 13E9.2) 

8270 FCRPAT (IX, /, IRX, "CLASS 1 (CCNE ANGLE) ERROR STATISTICS:', 

/ /, IX, • TYPE PEAN RES ICCAL(CEG) 

/! TOTAL WEIGFT') 

8280 FCRPAI ( IX, /, leX, 

/ /, IX, • TYPE PEAN residual lOEG) 

/) TOTAL WEIGFT') 

FCRPAT (IX, 15, AX, F13.A, 5X, AX, F18.A, 


8290 

8295 

8298 

83C0 
8 320 

83AO 

8999 


TYPE ',13, 


p / , 1 X ■- 

0O017A00 
00017500 

000176CC 

STANCARC DtVIATlON(DEGC0Ol77C0 

00017800 

•CLASS 2 (CHEC ANGLE) ERROR STATISTICS;’, 00017900 

STANDARD OEVIATIQNCOEGOOOieCOO 

COOIBICO 

5X» 8X, F12.A) 


00018200 

COQ183CO 

CCC184QC 

C0O185C0 

00018600 


FCRPAT IIX, 'TU1AL', AX, F13.A, 5X, AX, F18.A, 5X, 8X, F12.A) 

FCRPAT (IX, /, IX,’CCPBIN£D TOTAL: PEAN RES lOUAL ( DEG ) = 

/ F9.A, • ETANCARD OE V I A T 1 CN ( DEG ) = F9.A) 

ICRPAT (IX, /, IX, GCCNES CCNVERGEU'I 

FCRPAI (IX, /, IX, GCCNES PERFCRPED PAXIPUP NUPBER UF I TER AOOO 18700 

/TiONS WITHOUT CCNVEPGING*) 

FCRPAT (IX, 13CC-')) 

FCRPAI (IX, /, IX, ERkCR TYPE', 13, • DETECTED, GCCNES TERMC00I9CQ0 

/INATEC' ) 00019100 

COO192C0 
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o r> n 


COFSUM 


C. .00 019300 

c. .00019^00 

C. It-IS IS A SPFCIAL SUFRCUTRE CALLEC BV CCCNES TC COMPUTE THE .C0019500 

C. CCMBlUunCN TC THE CnEFFlCIENTS GF THE SIMULTANEOUS ECUAT IONS.C0019600 

C. I INVERSE CCVARIAACE PA1RIX1 FCR EACH TYPE CF CATA, ONE TYPE .00019700 

C. AT A TIME. THE CCCNES PPEAMELE ANC CGMMENTED LISTING PRO V I CES . COOl 9 0CO 

C. A CE«CR1P11CN CF ALL ARGUMENTS PASSED TO THIS SUBROUTINE. .00019900 

C. , .00020000 

c,. .....00020100 

c 00020200 

SUeHCUTINE CGFSUM [TIME, AXIS, ANG, WGHT, NUMB, ITYPE, NDIM, ALPR , CQ 020300 
/ ■ DELR, BIAS, IBIAS, NCGF, TZERC, IWRI, lOUT, C0C20A00 

/ CCEF.CRHQSC.RHCSr, AVGRHO.RHO) 

C • 00020600 

C 00020700 

DIMENSION TIMF(5CC), A X I S ( NU i M , 5 C 0 ) , ANGISOC), hGHTISCO), 0O02O80C 

/ ALPRIA), CELR(A) C002090C 

DIMENSICN CEEF(13,13), CRH0SC(13), RHDST131, CERIVie) CO021C0C 

C I MENS ICN RFC (SCO ) 

CATA !iTCC,TfLAG,Xe:AS/5 7 . PNS 7-6 , 99 99999 9999999 . / 

Q IM T 1 AL I7.AT [DN , 000212CO 

IFRS7 = 1 ' 00021300 

N2 = NCCE + NCCr QOO21A0C 

c ViRlTE CUTPLT HEADER IF SPECIFlFD 00021500 

IF( IVRT.GF. 12) (.RITE nCUT.SCCG) ITYPE 0O0216C0 

1 CCNT INUE ' 000217CQ 

C0021800 

<♦*** GFGIN SUMMATICN LC(jF 00021900 

00022000 

DC IGCO I = 1,NL"L' . C0C2210Q 

RECm^C.C ' 00022150 

c IF TIME rs FLAGGED IGNORE THIS CPSEBVATICN 00022200 

IF ( ) IME ( I) .Et.TFLAG ) GO TC ICCC C00223CC 

(; **^^* If ATinUCE IS INERTIAL (NCGF=1) AND HAS BEEN COMPUTED ONCE 00022900 

d ([fKST=2> SKIP AIUTGCE CCMPUTATICN FRCM CCFFFlClENfS 0002250C 

ir(NCCF.LE.l .A7^D. IFRS(.EC.2) GC TO ICO 0002260C 

ITRSI =2 ■ - 00022700 

AR = C-C 00022800 

lR = C.C C0022900 

TDIFF = TiME(I) - T7ERU COC230QO 

DTIMC = l.O 00023100 

C CtMPGIE ALPHA AND UFDA AT TIMEII) 00023200 

DC FC J = l.NCCI C0C2330C 

AP = AR + ALPR ( J ) «GT I ME , 00023400 


DR = DR + DELRIJl^DIIME 
DIIME = DriMG<'TD(FF 
4D CDMINUE 

I F ( AESi Aft ) .LT . IGCCO.O 
^ IFt 1FRT.GE.12) FPITE 
' DC TC ICCO 
to DCNTiNUE 
(; SAVE TINES AND CDSiNfcS LE 

C CCCRuItvATES CF LM I 


UCSA 

= CCS(AR) 

T TNA 

- SINIAR) 

CC.SC 

= CGS(CH) 

SIND 

= SIN(CR1 

1.1 = 

CO?G*CCSA 

D2 = 

CCSQ»S INA 

U3 = 

SIND 


ICC CDMINUE 
C 

G CCMPUTE ANGLE AND , CER I VA T I v E S F.R.T. 

G CLWREM STATE 


C0023500 
C0023600 
00023700 
C002360C 
00023900 
COO24C0C 
G0024 IOC 
00024200 
OC024300 
00024400 
00024500 
00024600 
00024700 
00024800 
C00249CO 
C0025C0C 
00025100 
00025200 

ALPHA'O AND DELIAC AT THE C0025300 

COQ25400 


.AND. AES(DRI.LT.ICOOO.U) GG TC 6C 
ncUT,Sl20) 


ALPHA AND DELTA AND CARTESIAN 
SPIN AXIS VECTOR 
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(; cCl'PUlJ; I'tflSLPfcC A^GlE {i-^HHOLlT HIAS) 

GAM“A = uNG ( I ) 

If ( F I AS.NE. XP I AS ) GAI«FA = GAFFA - RIAS 
V, = hcm ( f ) 

IFI n\PF.tC.i!) GC TC 12C 
CLASS 1 DATA - CCAE AAGLE 

CCS T Ft: = AX!S(1|IJ*L1 + AX I S ( 2 t [ ) *1'? + AXIS(3»11^^L;T 
IF UES( CCSTFF) -GT . 1 .0) COSTFE = S IGN ( I .0 tCQS THE ) 
TIE'TAD = AKCC5 < CCS r EE ) 

SIMTEE •= SlivMHEKAU) 

Of T /I = THFKA!'.>xnrrn 


C0025500 
CO0256C0 
C00257CQ 
COC250CQ 
CC02S9CC 
C0C26000 
C0026100 
00026200 
C002630C 
0O026A0O 
00026500 
CO 026600 


SKIP THIS PCINT 


RK. I I I^GAWpiA-lF ETA 

iF( s intee.ne.c.d GC TC no 
Q CFHIVATIVES gAN'T 6E CQEPUTEDt 

IE( UITT.GE.12) F«nf (UUr.flUO) 

cr TC iccc 

^ « CC e'pH I E DtPIVATIVtS CF THETA W.R.T. ALPHAO AMD DELTAO 

[)hf(\/A=(AXIS(l.nx<L2-AXI5(2*ll*Ul)/SlKTHE 

CERVC=(£lMC«IAXIS(L»I)X‘CCSA + AXlS(2.n*SIMA)-AXlSI3.I)*CCS0)/SIMTHE0OC27500 

GC TC lAO 

Q D/ftfti, CLASS 2 DATA - DIEErPfL ANGLE 
12C CCMINUE 

El = AX 1S< 2. nfAXIS (6 , 1) - AXIS! 3,nAAXIS(5,I) 

E2 = AXlSIHiIloAXlSl^.I) - AX I S I 1. I ) AAX I S 1 6 . 1 ) 

E3 = A X 1 S I 1 1 I) X" A X I S < 5 1 I ) - A X I S ( 2 « I ) A A X I S ( A, I I 
F = AX I S ( 1 t I) X AX I S I A , 1 ) + AX t S ( 2 » I) AAX I S ( 5 ( 1 I 


000268CO 

00026900 

00C27C0C 

00027100 

C0Q27200 

C0027300 

0OO27AO0 


C0027600 
00027700 
00027800 
C00279C0 
OOC28COO 
00028100 

+ AXI S< 3. I )*AXI S( 6, I ) CO 02 8200 


sv = 
SF = 
XNUE 
XCEN 
Q I = 
02 = 
tJ = 


LL»AX I S ( I , I ) + U2*fX IS 1 2, I) 
L1'.'AXIS(A, I 1 + U2*AXI5t5,n 
= Ll*£l + L2*E2 -» L3AE3 
= F - SV*SVi 

XQEM«E1 + XMLMAT SVXAX I S( A , I ) 
XMLH *tSV«AXIS(5fI) 
XNL'P:XiSV*AXlSlt, 1 ) 


U3AAXISI3.1 ) 
U3AAX IS ( 6.1) 


SHAAXISt 1, I ) ) 
Sx*AXIS(2, I I 1 
SWAAX1SI3. I ) ) 


F.RITE IICUTrHOSO) El.E2.E3. F.SV.SVi. XMUF.XOEN. 


.CP. XCEN. NE. 0.0) GC TG 130 

ANL THE DERIVATIVES CAN'T 
( ICGT.8160) 


be CCMPUT6D 


0 I SCCMT INU ITY AT 0-360 


0.0 


XDENX;t2 + 

XCENAE3 + 

IFI URT.GE. lA) 

/ C 1 ,Ci2,t3 

1 T 1 XNLP .NE .0.0 
C ««<■«« TEETA IS LNDEFIMEC 
IK URT.GE. 12) FRITE 
CC TC ICCO 
r?0 CCM INOE 

THETA ^ ATAN2( XMLR. XDEN )*RTCD 
TFTTHETA.CT.C.C) THETA - THCTA + 360. C 
c CCPFU1E RESICLAL ANC CHECK FOR NUMERICAL 

RHG( I > = GAMPA- TFTETA 

IFI KESIPtiOI n).GT.2TC.C)ftEO(n = REC(n-SIGM( 360.0,REC(n) 

G If REC IS STILL TCC LARGE ElIPINATE BY SETTING WEIGET TO 

IF(AeS(B(C!in).GE.9C.C)K=C.0 

C CCEPUTE GtPIVATIVES Of THETA H.R.T. ALPHAO AND DELTAO 

CFRVA = (-G1AL2 + 02*Lll/tXNLP*XNLM+X0EN*XD£NI 

OERVD=I-SINC» tCl*CCSA + C2*SINA J+CiF^CGSD )/ lXNUM*XNUM-fXDEN*Xl)EN) 

I'AC CCNTTNUe 

C **>*♦« CCPPOTE VECTOR CF DERIVATIVES: AC. DO. Al, 01. ... 

DTIPF = 1.0 
DC 16C J = 2.N2.2 
CERIV(J-l) - D'L-RVA*CT IRE' 

DERIvTJ) = CERVCACTIME 
CTIPE = CT UF't'TDIEF 
16C CENT INOE 
C AAf** SLR STATISTICS 

RHCSim = RECSTIl) + RfCm*N 
RECSTI2) = RF:CSI{2) + R f D (I ) *Rh C ( I) * U 
RHCSTI3) = RECST13) ♦ H 
IFI URT.LT. 12) GC TC 15C 

C ***♦# CLTPUl INTERMEDIATE QlAMlTIES IN SL'MMATICN PROCESS 


CCO283C0 

CO028AC0 

0CC28500 

00028600 

00028700 

00028800 

Q0Q2890C 

00029COO 

C0029100 

COC292CO 

C0C29300 

0OO29AOO 

COC2950O 

00029600 

00029700 

00029800 

C002990G 

00030COO 

0003010C 

COC30200 

C003030Q 

C0030AOO 

C0030500 

00030600 

00030700 

00030705 

C0030710 

00030715 

C0030720 

CQ030725 

C0030730 

00030735 

C0030800 

C0030900 

00031000 

00031100 

C0031200 

00031300 
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n 


AC - flU^RTCt 00031't00 

CC = CR^RTCC CCC3150C 


RRllE (lOljT.RlCC) I, TUFF, V» , AU t CD, DERVA, CERVC, 

/ THETA, GARFA , RFC I I ) 

lEO CCM lAUE 

C >(*«♦<< StR HFICHTtC ALPHA Af,C CELTA CCFFFICIEAiT DERIVATIVES CROSS 
C ***** PRCCUCTS IRTC CCEFFICIERT RATRIX (LCRER, LEFT, C f F-C 1 AGGIVAL 

c ***** IS act slrrld because qi syrreirV) 

DC 2CC J = l.NB 
DC 16C K = J,N2 

CCECU.K) = CCEFU.K) + DERI VIK)»CER IVlJ t*W 
IfiO CCMIKUE 


00031-6CO 

G0031700 

C0C318O0 

C0CI32600 

00032700 

C0C328O0 

C00329C0 

00O33CC0 

C00331C0 

CC033200 


C. SLR CCCFFICIENTS m VECTOR CCMAIMNG RIGHT SIDE DF S IRULTANeOUSCOG 33300 


C ECLAT ICAS 

CRHCSUJ) = CRHCSC(J) * RFC f I) CER I V I J J 
2C0 CCM INUE 

IFIPIAS.EC.XPIAS) CC TC HOC 
2 CCMIMJE 

c ***** CCRFLTE ALL RATRIX ELtRFNTS DEPENDENT GN BIAS 
DC 3CC 0 = 1 ,R2 

CLEF t J, lUlAS I = CCEFUtlBlAS) ♦ L£RIVtJ)AW 
3C0 CCM INUE 

CCEF I ID IAS , 161AS ) = t C C F( I B I A S , I E I A S ) + V 
CRHCSU iniAS) = LRHCSC ( !a [AS I + RhCIIfVW 
ICCO CCM INUE 


C0C33AC0 

CC033500 

0003360C 

C0O337C0 

CC033800 

C0033900 

C003ACQC 

COC3A100 

C0C3A2CC 

0003A300' 

C003AA00 

C0C3A5CC 


C ***** CCRPL1C AVERAGE RFC VALLE 
AVGRFC=SF9. 

RHCSLR=^.0 

NLR='C 

DC iSCC I=1,KLRP 

i F ( r IRE ( I ) . EC.TFL AG I CC TO ISCC 
IF IRGF r ( 1 1 .EC.C.O ) GE TO ISOC 
HECSl.R = RHCSLR + AHS(REC( I )T 

nlr=nlr*t 

ISCC CCM INUE 

IF (NCR, EiO.O ) GC TO ZCCC 
AVGREC-RFiCSLR/NLR 


CCQ3A80C 
. 0003A90C 
CC035000 
CC035100 

CO035A00 

COO355C0 


ZCCC REFLRN 


f 4 iv 4 4 * 4 <r K ^ ^ A T S T A T f: ^ F N T S 44 4 ♦ •'{••v‘ 44 * 4 # 

8 CC 0 FfRRA! (IX, /, IX, •SLBROUTINE CLFSUR ~ ATTITUDE ECUATICNS CDEFFIC 
/lENlS CC'RPUTAT ICNS FCR CLASS', 12 , • DATA:', 

/ //, IX, • I TIRE TDIFF IriElCHl ALP 

/FA DELTA CERVA CFRVD TUETA GARRA 

/ RHC, /, ZXF 

8 LE 0 FCRRAT (IX, 'FI, 2, 3 = ', 2 FE-A, ■ F,SV,SN = ‘, 3 F 8 .:,, • XNUR,XOEN=', 
/ 2 ‘^e.A, • Cl,Z, 3 =', 3 F 8 .A) 

eiCC FCRRAT (IX, 16 . SF 12 .A, SF 1 Z. 6 ) 

R 12 C FCRRAT (IX, 'WW** THE APSCLLTE VALUE CF ALPHA ANC/OP CELTA IS TO 
./C large i> = lCCCCC.O RADIANS)*') 

HIAO FTRRAT (IX, ■VVVVVV S 1 N ( T F E T A ) = 0 . 0 , DERIVATIVES (IF THETA R.R,T, AL 
/PEA AND OFLTA A RE ,U NC E F ] NEU ' ) 

81 C 0 FCRRAV I IX , < X- X t V PSI I S . L N GE F I IVE D , DERIVATIVES GF PS I h.R.T. AL 
/Pl-A AFU DELTA ARE ALSC INLEFINED') 

. END 
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APPENDIX B 


This appendix describes a computer program written to enable a user to employ 
SUBROUTINE GCONES with relatively small groups of data. The program is 
designed to make use of an IBM 2260 display unit for interactive input entry and 
output viewing. Examples of input and output follow, with a definition of the pa- 
rameters and data which are displayed. In addition, a short guide for operation 
of the program is included at the end. 


*\(COP=l*M*XIT= 5*NCL ASl =0*NCLAS2 = a*! SMl>LT = 0*IRAOEC = 0 + 

»ALP(S>= A5.S»0EL( H )= -E,7*ALPBND(l )=. i6*DECBND<1 )=,10* 

«')TrPF?.= 0* 0» 0* 0* 0X'**NUyi= NTYPE2= 2* 2* 0* 0* 0»*»NUM2= 4* 

»BIAS1= 0»0 + 0,0 * 0,0 * C,0 * C,0 ***** 0,0 ♦ 0,0 * D.O * 0.0 * 0,0 * 

*BrAS?= 0,0' * 0,0 • 0,0 * 0,0 * C,0 *»•** 0 'bND 2= 0,0 • 0.0 * 0.0 * 0,0 * 0,0 * 
ANGLE XI OP Ai Y1 OR 01 21 OR A2 XZ OR 02 Y2 22 KGHT 

-0,016300* -O.3SC6C0* -0,191100* -0,736000* -0,522100* 0,330968* 1.00* 

35.23* -0,9 ' 63O0*_ -O, 35060C* -0.191100* -0.786000* -0.522100* 0.330968* 1,00* 

57.89* -0.786000* -0.5221 CO* 0.330968* -0,532500* -0,716300* 0.451000* 1,00* 

i?.70* -0.7B6QOO* -0.522100* C, 330968* -C.S32S00* -0.716300* 0.451000* 1.00* 


Parameter 

Format 

Range of Values 

Function or Definition 

NCOF 

(11) 

1 

Number of coefficients to be used in 
attitude model 

MAXIT 

(12) 

1 to 99 

Maximum number of iterations to be 
performed 

NCLASl 

(11) 

1 to 5 

Number of types of class 1 (cone 
angle) data 

NCLAS2 

(11) 

1 to 5 

Number of types of class 2 (dihedral 
angle) data 

ISMULT 

(11) 

0 

Do not use the residual edit data re- 
jection process 



1 to 9 

Weight to 0. 0 all angles whose resi- 
duals are greater than ISMULT 
times the average residual 

IRADEC 

(11) 

0 

Reference vectors are input in X, Y, 
Z coordinates 



1 

Reference vectors are input in a, 5 
coordinates 

ALP(l) 

(F5.1) 

0. to 360. 

Initial estimate for spin axis right 


ascension 
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Parameter 

Format 

Range of Values 

DEL(l) 

(F5.1) 

-90, to 90, 

ALPBND(l) 

(F3.2) 

>0, 

DELBND(l) 

(F3. 2) 

>0. 

NTYPEl 

(512) 

0 to 50 

NUMl 

(12) 

0 to 50+ 

NTYPE2 

(512) 

0 to 50 

NUM2 

(12) 

0 to 50+ 

BIASl 

(5F5.2) 

0.0 



Other 

BBNDl 

(5F5.2) 

>0. 

BIAS2 

(5F5.2) 

0.0 



Other 

BBND2 

(5F5.2) 

>0, 

ANGLE 

(F6.2) 

0. to 360. 

X1,Y1,Z1 

(3F11.7) 

-1. to 1, 

X2, Y2,Z2 

(3F11.7) 

-1. to 1, 


*At present the program is limited to processing only 


Function or Definition 

Initial estimate for spin axis 
declination 

Bound for convergence of right 
ascension 

Bound for convergence of declination 

Number of angles of each type of 
class 1 data 

1 Total number of angles of class 1 
data 

Number of angles of each type of 
class 2 data 

Total number of angles of class 2 
data 

Do not compute bias for this type of 
class 1 data 

Initial estimate of bias for this type 
of class 1 data 

Bound for convergence on bias for 
each type of class 1 data 

Do not compute bias for this type of 
class 2 data 

Initial estimate of bias for this type 
of class 2 data 

Bound for convergence on bias for 
each type of class 2 data 

Cone angles and/or dihedral angles 
(cone angles must be first) 

X, Y, Z coordinates of first reference 
vector 

X, Y, Z coordinates of second refer- 
ence vector (for dihedral angles only) 

angles or less. (NUWI1 + NUM2 < 50> 
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Parameter 

Format 

Range of Values 

A1 

(F11.7) 

0. to 360. 

D1 

(F11.7) 

-90. to 90. 

A2 

(F11.7) 

0 to 360. 

D2 

(F11.7) 

-90. to 90. 

WGHT 

(F5.2) 

>0.0 


Function or Definition 

Right Ascension of first reference 
vector 

Declination of first reference vector 

Right ascension of second reference 
vector (for dihedral angles only) 

Declination of second reference vec~ 
tor (for dihedral angles only) 

Weights assigned to each input angle 


*«««* gcones converged 

A_PHA= 46,in7 DELTA= -5.6! 7 TRESIO= 0,25098 *** rsTDV= 0.25000 


I DI = 

0*0 * 

9, 0 * 

0. D 

sT’:>vi = 

o*c ♦ 

0.0 * 

0.0 


’O.ooooe» 

-C. 00009* 

0.0 

sr:)v;> = 

0*20500* 

0.095CO* 

c.o 

BTA5\ = 

OmO * 

0. 0 * 

c.o 

31 AS 2 = 

o*c * 

0,0 ♦ 

0.0 


I«ANGLF *RESI0UAL*WEIGHT* 
: * 35. 6A* a,20A9* 1.00* 

3* 57,0O» O.OOAg* 1.00* 


* 0.0 * 0.0 ♦ 

* 0.0 * c.o • 

♦ 0,0 * 0.0 * 

♦0.0 *0,0 ♦ 

* 0,0 * 0.0 * 

* 0,0 • 0.0 * 


* I*ANGLE •Rr.SlOUAU*WEIGHT* 

* 2* 35.23* -0.2051* 1.00* 

* 4* 57,70* -o.ogsi* 1.00* 


*\ICDF= » »MAX IT= 5*NCLAS J = 0*NCLA S2=2*I SMU,T=C*IHAOEC = 0* 

*A_>(5 )= 45.4*DEHl)= -5.6*ALPBNC ( 1 ) =. 1 O*DEL0NO( 1 ) =. I 0* 

*VTypFl= 0* 0* O* O* 0***NUM1= 0***** NTVPE2= 2* 2* 0* 0* 0***NUM2= 4* 

♦3IAS7= 0,0 * 0.0 * 0.0 * 0.0 * C.O ***** BBN01= 0.0 * 0.0 ♦ 0.0 * 0.0 • 0.0 * 

*3IA52= 0.0 ♦ 0.0 * 0.0 • C.O * C.O ***** BSND23 0.0 * 0.0 * 0.0 * 0.0 * 0.0 * 

ANGLE XI OR A! 71 OR 01 Zl OR A2 X2 OR 02 V2 22 WGHT 

-0,q*.6e00* -O.ISCGOO* -C.191100* -C. 736000* -O.S22100* 0.330968* l.OO* 

35.23* -0.916300* -0.3S060C* -0.191100* -0.736000* -0.522100* 0.330958* 1.00* 

57.8<j. -0.736000* -0.5223. 00* 0.330968* -C. 532500* -0.716300* 0.451000* 1.00* 

57 . 70 * -0.736000* -0.522100* C. 330968* -0.S32500* -0.716300* 0.461000* 1..00* 


Output Description 

***** message — error message from SUBROUTINE GCONES. If no error occurs, 
message is "GCONES CONVERGED" 

ALPHA — computed spin axis right ascension 

DELTA — computed spin axis declination 

TRESID , — computed mean residual based on all data 

TSTDV — computed standard deviation based oh all data 
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RESIDl 

STDVl 

RESro2 

STDV2 

BIASl 

BIAS2 

1 

RESroUAL 

WEIGHT 


— mean residuals computed for each type of class 1 data 

— standard deviations computed for each type of class 1 data 

— mean residuals computed for each type of class 2 data 

— • standard deviations computed for each type of class 2 data 

— bias computed for each type of class 1 data 

— bias computed for each type of class 2 data 

— nvimber of the angle within the input angle arrays 

— residual computed for this individual angle 

— weight attached to this angle (if residual edit was used and the 
residual was large enoi^h this weight will be 0. 0). 


Operating Guide 


The normal procedure for operation is to: 1, enter all input parameter values 
and data on the input displays, 2. process the data using Subroutine GCONES, 

3. review the output on the output displays, 4. proceed to the input display where 
more data can be entered or the same data can be reprocessed, 5, repeat pre- 
vious procedure any number of times. 

To facilitate these operations, several features have been incorporated into the 
program for input as well as for output. 

Input Features 


Shift/Enter — by depressing these keys the next page of input will be displayed. 

There are five pages of input. If shift/ enter is depressed when 
page 5 is on the display, GCONES processing is initiated and the 
output display will appear. 

BACK — by typing "BACK" in the first four spaces on the first line of any 
page and then depressing shift/enter the previous page of input 
will be displayed. 

SKIPn — by typing "SKIP" in the first four spaces on the first line of any 
page and typing a "1", "2", or "3" in the fifth space, n pages of 
input can be skipped. Shift/enter must be depressed after typing 
SKIPn. 

LOAD — by typing "LOAD" in the first four spaces on the first line of any 
page and then depressing shift/enter page 1 of the input will be 
displayed. 
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CONT 


— by typing "CONT" in the first four spaces on the first line of any 
page and then depressing shift/enter the GCONES processing will 
be initiated without further modification to the input data. 

STOP — by typing "STOP" in the first four spaces on the first line of any 

page and then depressing shift/enter the program will be terminated. 

Output Features 

Shift/enter — same as with input 

BACK — same as with input 

LOAD — same as with input 

STOP — same as with input 

REDO — by typing "REDO" in the first four spaces on the first line of any 
page and then depressing shift/enter the first page of output will 
be displayed. There can be up to four pages of output. 

Operating Notes 

When the initial input has been processed, the output reviewed, and "LOAD" is 
used to reprocess several things should be noticed. First, the input attitude and 
bias estimates will be those computed by GCONES from the previous processing 
and may require modification. Second, the weights will be 0.0 if any of the angles 
were rejected by the residual edit process. Third, the line Immediately follow- 
ing the last line of data from the previous processing will be blank. Data should 
be entered on this line if more angles are added (asterisks need not be typed). 
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//6H&RGC0* JOB (GH5001B57A, T,GOO'i02,0O50O5)tGHOtMSGLEVEL = l 
t( exec PGf'=IEHPRDGM 
//SYSPRINT DO SVSDUT=A 

//ATT DD UNIT=DISK,VQL=SER=ATTDET,OISP=SHR 
//SY5IN DC ♦ 

SCRATCH DSNA^'E=IMP.LAUNCE.GDR, V0L=2314=ATTDET,MEMB£R=GC0NE50R 
// EXEC PG«=IE8COPY,REGIOK=20CK 
//SYSPRINT CD SYSOUT=A 

//IN OD OSN=IMP. LAUNCH. GOR,UNIT=OlSK,.VaL=SER = ATTOeT,DISP = SH» 
//SYSIN DO • 

COPY INOD=IN,oaTOD=IN 
// EXEC FORIRANH 
//SOURCE. SYSIN DO * 

C 

C THIS IS A GENERAL DRIVER FOR SUBROUTINE GCONES 

C WRITTEN 7/20/72 BY AL GEELHAAR — CODE 5A2 

C REVISED 10/27/72 TO INCLUCE CALL TO LATEST VERSION OF GCONES 

C 

DIMENSION ALPIA ) ,OEL( A) .ALPBND ( A ) .DELBNO ( A 1 ,COEE ( 1 3, I 3) , 

/ TIMEl I 50) , AXISK 3, 50) , ANGl (50) .IFRSTl ( 5 ) ,NTVPE1 ( 5 ) , 

/ BIASU5),BBNOI(5) ,RH0ST1(3, 5) , T I ME? ( 50 ) , A X I S2 ( 6 , 50) , 

/ ANG2(50) ,WGHT2 ( 50) , I FR ST2( 5 ) , NTYPE2 ( 5 ) ,BIAS2(5), 

/ BBNC2( 5) ,RHOST2(3,5) ,WGHT1(50) ,ST0V1(5) ,RE S 1 01 ( 5 ) , RHOl ( 50 ) , 
/ STDV?( 5) ,RES102( 5) ,RH0 2( 60 ) , 1 COM! 7 ) , B U 5) , 82 ( 5 ) 
COMMCN/GRAPH/ ICOM 
ISMULT=0 
IRAOEC=0 
NCOF=l 
TZ£R0=O. 

MAX1T=5 

IWRT=1A 

I0UT=6 

NCLASI=0 

NCLAS2=0 

DUMI=0.0 

DUM2=0.0 

DUN3=C.O 

NUM1=50 

NUM2=0 

ALP(l)=0-0 

OELtl)=0.0 

IFT=10 

IUNIT=0 - 

IOUM=:0 

00 I 1=1, A 

ALPBNOt I ) = . 1 

DELBNOI n = . 1 

1 CONTINUE 
DO 2 1=1,5 
RESIDK I)=0.0 
STDVU 1 )=0.0 
RES1C2( n=o.o 
ST0V2(I 1=0.0 
IFRSTU I )=Q 
IFRST2(1)=0 
NTYPEl ( I )=0 
NTYPE2I I )=0 
BIASKi )='J999^99. 

BIAS2( I 1=9999999. 

Bim=o.o 

B2U)=0.0 
BBNCl (11=0.0 
B6NC2( I 1=0,0 

2 CONTINUE 

DO 3 1=1,50 
ANGl (11=0.0 


OOOOOlOO 

00000200 

00000300 

OOOOQAOO 


00001300 

OOOOIAOO 

00001600 

00001700 

00001800 

00001900 


OOOO 2 OOO 

00002100 

00002200 

00002300 


00002500 


00002700 
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ANG3M ) =0.0 

WGHT1(1)=1. 00002900 

WGHT2(I)=l. 00003000 

TIMEl(I)=t 00003100 

TIME2(1)=I 00003200 

CO 21 J=l, 3 

21 AXI SI ( J, n =0.0 
DO 3 J=l,6 
AX1S2(J, (1=0.0 

3 CONTINUE 00003300 

CALL GOPENl IFT, ICOM (1 ) 1 

CALL GSPARt !CUM( 11) 

4 REWINC 9 

WRITE(9,9000)NCOF,MAXIT,NCLAS1,NCLAS2. ISMULT.IRAOEC, ALPll) ,OEL(l), 

/ALPBNni 1) .OELBNDI 1 1 , ( NT YPE I ( I) , 1 = 1 1 5 ) rNUNl , ( NTYPE2 ( 1) , I =1 r5.) , 

/NUM2, (Bl( I 1 ♦ 1 = 1 ,5 1, (6BNCK I 1 , 1= 1 , 5 ) , ( B2 (I 1 , I = 1 , 5) , <B6n0 2( 11,1 = 1,51 
IF(NUMl.NE.O) GO TC 22 

WRITE (9,90 20) t ANG2 1 1 1 , ( A X I S2 ( J , II , J = 1 ,6 1 , WGHT 2 I I 1 , 1 = 1 ,NUM2) 

GO TO 25 

22 IF(NUKZ.Ne.O) GO TC 23 ' 

WRITE(9,9020) ( ANGU I1,{AXIS1IJ,I1,J = 1,3) ,t)UMl , DUM2 , DUM3 , 

/ WGFTll n, I = l,NUMi) 

GO rt! 25 ' 

23 WRITE(9,9020) ( ANGK 1 1 , ( AX 1 S 1 ( J , I ) , J = 1 , 3 1 ,DUM1 , DUN2 ,DUM3 , 

/ WGHT I ( 1 1, I = 1,NUM1) ,( ANG2 t I 1 , ( AX IS2( J , I) , J=l,6) , WGHT2 ( I 1 , I = l ,NUM2) 

25 CONTINUE 
IGD=1 

CALL OUPMYI (GO, lUNl T, lOLM) 

RE AGIO, 9000 I NCOF.MAX I T ,NCL AS I , NCLAS 2, I SMUL T , 1 RAOEC , ALP 1 1 ) ,0EL(1) , 

/ALPBNDI 1) .OELBNOm ,(NTYPE1 (H , 1 = 1,5) ,NUM1 , ( N T YP E2 ( 1 1 , I =l , 5 1 , 

/NUM2, IBll I ) , 1 = 1 ,5) , (BBNDl M 1,1 = 1,51,(62(1), 1 = 1 ,5 ) , ( 6BN02( J ) ,1 = 1,5) 
IF(NUMl.NE.O) GO TG 32 

READ (9,9020) ( ANG2 ( I) , ( AX I S2 ( J , () , J = 1 , 6 ) , WGH T 2 ( I) , I = 1 , NUM2 ) 

GO TC 35 

32 1F(NUM2.NE.01 GO TO 33 

READ (9,9020) (ANGK I),(AXrSl(J,n,J = l,3) ,DUM1 ,DUM2,OUM3 , 

/ WGHTK I),I = 1,NUM1) 

GO TC 35 

33 READ (9,9020) (ANGl ( 1 1 ,( AXISl (J, [) ,J= 1,3) ,DUM1,OUM2,OOM3 , 

/ WGHTK I) ,I = 1,NUM1) , ( ANG2 ( II , ( AX IS2 (J , I 1 , J = 1 , 6 ) , WGHT2 ( I ), 1 = 1,NUM2) 

35 CONTINUE 
REWIND 9 
N=NUR1+NUM2 
NLlNES=N/2+N/22+13 
NL1NES=NLINESHM0D(N ,2 ) 

IF(ROO<N,22) .EQ.O) NLINES=NLINES-1 

1F( IRADEC.LE.O) GO TO 9 

IF(NCLASl.LE.O) GO TO 6 

DO 5 I=1,NUM1 

R=AXlSl(l,n/57. 29578 

0=AX1S1 (2, D/57. 29578 

AXIS1(1,I)=C0S(R)>I‘CCS(D) 

AXIS1(2,I)=SIN(R)*CCS(D)' 

5 AXIS1(3,I )=SIN(D) 

6 IF(NCLAS2.LE.O) GO TO 9 
DO 8 1=1,NUM2 

Rf = AXIS2(l, 1 1/57.29578 
DF=AXIS2(2, I 1/57.29578 
RS = AXIS2(3,.l )/57.2957B 
DS=AXIS2(4,I)/57.29578 
AX1S2( 1 ,I )=C0S(RF1*C0S< OF 1 
AXIS2(2, I )=SIN(RF)*COSICF I 
AXIS2(3,n=SIN(DF) 

AXIS2(4,I I=C0S(RSI*CQS(CSI 
AXIS2(5, I)=SIN(RS)*COS(CS) 

8 AXIS2(6,I)=SIN(0S) 
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9 Continue 
DO 37 1=1,5 


B IASI ( I 1=9999999. 
6IAS21 I )=9999999. 




IF(81( I ).EQ.O.O) 
BIASl ( I )=B1 ( I) 

GC 

TO 

36 

36 IF1B21I).EQ.0,0) 
SIA52) I )=B2( I ) 

GC 

TO 

37 


37 CONTINUE 
IFRSTl ( 1) = 1 
IFRST2< 1)=1 
DO 38 1=2,5 

IFRSTH n = IFRSTl ( I- U+NTYPEK 1-1) 

1FRST2I n = [FRST2 n-n+NTYP£2( 1-1 ) 

38 continue 

CALL GC ONES < T ZERO, ALP , DEL , ALPBND,DELBND,NCOF ,MAXIT ,COEF , 

/ IWRT,IDUT,IRET,ISMULT,TIME1,AXIS1,ANG1,WGHT1, IFRSTl , NT YPE 1, 

/ 61 ASl, BBNDl ,RHOSTl ,NCL AS 1 , RHQl , RE S 1 01 , STD V 1 , T I ME2 , AX I S 2 , ANG2 , 
/ WGHT2, IFRST2,NTYPE2,8IAS2,BBND2,RH0ST2,NCLAS2,RH02,REStD2, 

/ STCV2,TRES1D,TST0V ) 

00 AO 1=1,5 
Bit U=BlASlt n 
B2( I ) = BIAS2< 1 1 

IFIBIASim.GE. 99999,) BUI)=0.0 

IF(BIAS2t I ) ,GE.99999. ) B2(l)=0.0 

AO CONTINUE 
I=IRET+1 


GO TO I 11, 12,13, lA, 15,16) ,I 

11 hRITE(9,900l > 

GO TO 20 

12 WRl TE19,9002) 

GO TO 20 

13 WRITE(9,9003) 

GO TO 20 

lA WR ITEI 9,900A) 

GO TO 20 

15 WRITE(9,9005) 

GO TO 20 

16 WR1TE<9,9006) 

20 WRITE(9i9010) ALP 1 1 ) , UE L( 1) , THE S I D, T STDV , I RE S 1 0 I ( I ) , I = 1 , 5 ) , 

/ (STDVim ,1 = 1,5) , 

/(RES 102( I ) , 1=1, 5) ,( STOV 2(1), 1 = 1, 5), (BUI), 1 = 1, 5), (62(1), 1 = 1, 5) 
I F (NURl.-NE.O ) GO TC A2 

NRITE(9,9030) ( I ,ANG2( 1 ) ,RHD2 ( I ) , WGHT2( I ) , 1 = 1 ,NUH2 ) 


GO TO A 5 

A2 IF(NUM2.NE.0) GO TO A3 

WRI TE(9,90301 (l,ANGl( II , RHO 1 ( I) , WGHT 1 ( 1),I=1,NUM1) 

GO TO A 5 

A3 WRITE (9,9030) ( I ,ANC1( 1) ,RHOU I ) ,WGHTl( I) ,I = 1,NUM1) ,( 1 ,ANG2( I ) 

/ RHC2U >,WGHT2(I),I=1,NLM2) 

A5 CONTINUE 
IOUP=NL INES 


IG0 = 2 


CALL DUPHYI IGO, lUNlT, IDLM) 

1F( 10UM.EQ.-555) GO TO A 
CALL GDAR( IC0M( 1) ) 

CALL OCLOS( IFT, ICOH(l)) 

9C00 FORMAT t ' ♦NCOF= ' , 1 1 , • *M AX I T = • , I 2 , '*NCLAS ! = • , 1 1 , •*NCLAS2»' , II , 

/ ■*ISMULT=* , II, •*1RA0£C=* , *ALP( l) = *,F5.1,'*DEL(l)=* ,F5.1, 
/ '*ALPBND (!)=•, F3. 2,* AOELBND( 1) = *,F3.2,'*’/* *NTYPE1= *,5(I2,'*'), 

/ •>l‘*NUm=' , I 2, ♦ NT YPE2 = * ,5 ( 12, • ♦* ) , ***NUM2=* , 12, ** V 

/* *eiASl=* ,5IF5. 2, •♦•), **♦*'(■ BBN01=* ,5(F5.2,*’»* ) /• *B1AS2=*, 

/ 5(F5, 2, •♦• ),**«*» BBN02= • , 5( F5.2, • *• ) ) 

9020 FORMAT) • ANGLE XI OR Al Y1 OR 01 Zl DR A2 X2 UR 02', 6X, 

/ *Y2',9X,'Z2*,6X, 'WGHT* ,6(/F7.2,**',6tF10,6,'*M,F5.2,*A»), 

/ A)/' ANGLE XI DR Al VI OR D1 Zl DR A2 X2 OR 02*,6X,'Y2', 
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/ 9X, 'Z2 ’ *6X, 'WGHT' , 

/ 11 (/F7.2, '*• ,P10.6,'*' ,F 10.6,' ♦' ,F10.6, '*• .F10.6, ,F10.6,**' , 
/ FlO-6, ,F5.2, • *• ») 1 
9C01 FORMATC +***# GCQNfcS CCNVERGEO') 

9C02 FaRMAT< ' GCONES PERFORMED MAXIMUM NUMBER OF ITERATIONS' t 

/ « WITHOUT CONVERGING') 

9003 FORMAT! • GCONES DIVERGED (CORRECTION ELEMENT GREATER THAN' 

/ * 360.') 

9004 FORMAT! ♦ GCONES ENCOUNTERED A SINGULAR MATRIX') 

9C05 FORMAT! » ♦♦*«<' GCONES - TOD MANY BIASES WERE SELECTED TQ BE ', 

/ 'DETERMINED* > 

9C06 FORMAT! • GCONES - NCOF IS OUTSIDE OF ALLOWABLE RANGE') 

9010 FORMAT!/' ALPHA= • , F 8. 3, ' *** DEL TA= " , F8. 3, ' THESID = ', 

/ F9.5,' *»<' TSTDV=' ,F9. 5,//' RE S I D I = ' , F9 i 

/ *’*' ,F9.5, ' *• f F9.5, , F9. 5, ' *• ,F9. 5 , **' /' STDVl = * , 5 ( F 9. 5 , * * * ) / 

/ ' RESID2=',5(F9. 5, **•)/• STDV2 = • , 5 1 F9. 5, ' * ' ) , 

/ /• HlASl =• ,5(F9.5,'*' ),/' BIAS2 = ' , 5 ! F9. 5 , ' * • ) ) 

9030 FORMAT!//3I’ I4ANGLE 

/ 'RES1DUAL4WEIGHT4' ,14X,'* I*ANGLE *RE S 1 DUAL + WE I GHT* ' / 1 1 ( I 3 , • * ■ , 

/ F6.2,'0',F8.4,'*',F6.2,*«',14X,'4',I2,'4',F6.2,'4*,F8.A, 

/ '♦* ,F6.2, '*• ,/> ) ) 

STOP 

END 

SUBROUTINE DUMMY! IGCt lUM T, I DUM) 

IF ( IGU .EO. n CALL LOAO(IUNIT) 

IF (ICO .EQ. 2) CALL OUT60(IOUM, lUNIT) 

IF !IGQ .EO. 3) CALL COPY ( I DUM , I UN I T ) 

RETURN 

END 

SUBROUTINE COPY (I RECN , I UN I T ) 

DIMENSION A!240),1CCM!7) 

COMMON /GRAPH/ ICOM 
DATA ASTOP/'STOP'/ 

DATA BLQAO/'LOAD'/ 

DATA AUTO/'AUTO'/ 

IFT=10 

REWIND lUNIT 
READ! lUNIT, IO,END=25)A 
10 F0RMATI20A4) 

25 CALL GWBUF! ICOMU ) , All) » IFT ) 

CALL GWAlTdCDMIin 

CALL GRBUF! ICOM! 1 ), A! 1) ,IFT) 

IFIAU) .EQ. ASTQP) GO TO 30 

IF(A(1) .EO. AUTO) IRECN=-444 

IF(AH) .EQ. BLOAD) lRECN=-555 

REWIND lUNIT 

WRITEI lUNIT.lO) A 

REWIND lUNlT 

RETURN 

30 CALL GOAR! ICOMd) ) 

CALL GCLOS! IFT.lCOHll )) 

STOP 

END 

SUBROUTINE LOADdUNIT) 

DIMENSION ICCM! 7) ,A (1200) 

DATA SKIP/'SKIP'/, STOP/ 'STOP'/ 

DATA CONT/'CQNT' /, BACK /* BACK */, BLOAD/ • LOA D' / 

INTEGER LI 5)/l, 241, 461, 721, 961/ 

COMMON /GRAPH/ ICOM 

ISKIP=0 

1FT=10 

REWIND lUNIT 

READ dUNIT,10,END=24) A 
10 FORMAT! 20A4) 

24 1=0 

25 1=1+1 
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00003900 

00004000 


00003322 

00003330 

00003340 

00003370 

00003371 

00003372 



IFn.GT.5) U5 
tF (l.EO.O) I=l 
J = U I ) 

R=A(J) 

S=AIJ+1) 

CALL Gi*auF< ICOHtl).AlJ),IFT) 

ISKIP=lSKIP-l 

IF( ISKIP.GT.OI GO TC 25 

CALL GWAIT( ICOM(D) 

CALL GkBUFt ICOM(l), J) ,IFT)' 

20 0=A(J) 

0 = A i J + i 5 
A( J)=R 
A( J+1)=S 

IFIO.EU.SKIP) GO TO 92 
IF (O.EC.BLGAD) GO TO 2 ‘^ 

IF(D.EG.BACK) 1=1-2 
IFTD.EO. CONT) GO TC 26 
IF(C.EQ.STOP) GO TO 27 
IF( I.NE.5) GO TO 25 

26 REWIND lUNIT 
WRIT£(IUN1T,10)A 
REWIND lUNIT 

return 

27 CALL GDAR ( ICOMU ) ) 

CALL GCLOS ( IFT, ICOM (1 1 I 
CALL EXIT 

92 CALL INCORE(0,ISKIP,5,1,1,0,0) 

ISKIP=1SK1P+1 
GO 70 25 
END 

SUBROUTINE OUTGO UR ECN, IN I 
DIMENSION BI2A0), ICCMI7) 

C PROGRAM TO DISPLAY A DATA SET ON 2260 

C INPUT UNIT 

DATA R, BLANK/'REDO* ,• V 

DATA STOP/* STOP'/ 

DATA BACK/*BACK»/ 

DATA 6L0AD/ 'LOAD* / 

DATA AUTO/' AUTO*/ 

COMMON /GRAPH/ICQM 
IFT=10 
REWIND IN 
5 LINEKT=0 

1 L = 1 
K = 20 

DO 2 1=1,12 

IFILINEKT .EQ. IRECN) GC TO 90 

READ UN, 100,END=90 ,ERR=90) I6(JJ,J=L,R) 

BSAVE = 0a) 

LINEKT=LINEKT+1 

L=20*I*1 

K=L+19 

2 CONTINUE 

100 FORMAT (20AA) 

C WRITE 12 L INES ON 2260 

CALL GweUF ( ICOM [ 1 ) , ei 1 ) , I FT) 

CALL GwAITI ICOMt ID 

CALL CRBUFt ICOM( U, BU) ,IFT) 

IFIBI n .EQ. STOP) GO TO 91 
IF IBID .eO. BLOAO) GO TO 77 
IF (Bin .NE. BACK) GO TO 200 
lAO IFILINEKT .LE. 12) GU TC 76 
K8ACKS=2A 

IFIMDDILINEKT, 121 . NE . C ) KB ACKS=MOD I L I NEKT , 1 2 ) +1 2 
DO 150 JJ=1,KBACKS 


0000337A 


00003377 


00003378 

00003400 

00003404 


00003407 

00003408 

00003409 


00003411 

00003420 

00003430 

00003440 
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L INEKT=LINEKT-1 
150 BACKSPACE IN 
200 IF IBII) -NE. R) GO TO I 
76 REWIND IN 
GO TO 5 

90 IFIF'ODILINEKT, 12) .Eg. C) GO TO U 
IS=( I-l )*20»1 
DO 3 I=IS,2^0 
3 B ( I )=BLANK 
GO TO 10 
11 B(1)=BSAVE 

10 CALL GWBUF ( ICOMI I ) ,B( 1 ) , I FT) 

BSAVE=Btl) 

CALL GWAm rCOMd ) I 

READ 12 LINES PROP 2260 ♦ TEST FIRST CHARACTER 
CALL GRBUFI ICOMf 1 ), B( 1) ,1FT) 

IF(B(l) .EO. BLOACl GO TO 77 
IFIBd) .£0. AUTO) GO TC 75 
IFIB(I) .EQ. STOP) GO TC 91 
IFItJU) .Eg. R) GO TO 76 
IF (8U) .NE. BACK) GO TO 11 
GO TO 140 
75 IR£CN=-444 
RETURN 

77 SRECN=-555 
91 CONTINUE 
RETURN 
END 

// EXEC LINK 

//SYSLie DC DSN=0PRLIB,UNIT=D1SK, VOL=SER=ATTDET,DISP=SHR 
//SYSLHOO DD DSN= IMP. LAUNCH, GCR (G CONE SDR ) , UN I T=0 I SK , VOL = SER = A TTDET 
// DISP=SHR,SPACE=(rRK.(l,4,l ),RLSE) 

// EXEC PGM=GCONESDR, REGICN=I 20K 

//STEPLIB DC DSN=IMP.LAUNCN.GCR,DI SP=ShR, VOL=SER=ATTDET,UNI T=2314 
//FT06F001 OD SYS0UT=A,DCB=(RECFM=VBA,LRECL=137,BLKSIZE=7265) 
//FT09FOOI CD DSN=£SARGLIN,DISP=( NEW,0ELETE ) , SPACE= ( TR K, ( 3, 1 ) ) t 
// DC6=(DSORG=PS,RECFM=F,LRECL=80,BLKSIZE=80) ,V0L=SER=G1SCR6,UNIT 
//FTlOFOOl DO UNIT=0A4 
/* 


00002420 


= 2 314 



APPENDIX C 


SECTION 1 
INTRODUCTION 

DCCONS is the inter-active graphics counterpart of the non-interactive program; 
GCONES (Ref. 1). GCONES is a differential correction routine that minimizes 
the weighted sum of residuals squared between measured and computed angles. 
The measured angles may be obtained directly from spacecraft sensor readings 
or computed from other spacecraft observations such as time pulses, spin rates, 
or components of a reference vector. The minimization is achieved by differ- 
entially correcting an a priori estimate of the attitude state variables. 
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SECTION 2 

MODULE DESCRIPTION 


Section 2 contains the module descriptions of all subroutines accessed by the 
DC CONS subsystem. The following conventions should be noted; 

• The standard IBM System/360 FORT AN IV Library Subprograms are 

used for nominal arithmetic and trigonometric calculations. 

• All calls to graphics displays are accomplished through the MSAD 

routine, CHECK (see Ref. 14). 

« Each module description contains six main parts 

a. CALLING SEQUENCE reflects the physical call to the subroutine; 

b. DESCRIPTION presents a brief overview of the fmiction of the module; 

c. COMMON AREAS REFERENCED lists, in alphabetical order, the 
labeled common areas accessed by the module; 

d. EXTERNAL REFERENCES lists, in alphabetical order, all external 
routines called by the module; 

e. STORAGE REQUIREMENTS delineates the amount of physical core 
storage, in decimal bytes, required by the module; 

f. VARIABLES defines the input parameters and output variables 
accessed by the module along with any labeled COMMON area 
variables utilized in the module. 

• In addition to the six main parts, two parts are provided, where 

applicable 

a. DATA TRANSMISSION lists the unit of transmission, the type of 
transmission and a description of the data being transmitted. Data 
transmitted through MSAD display devices is listed as Control Point 
name, the module which calls the display, and the display description. 

b. RESTRICTIONS delineates the limitations imposed on the module. 
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LEGEND 

MSAD SUBROUTINES 
**- TABLE DISPLAY NAMES 


CHECK 






































SUBROUTINE DCCONS 


CALLING SEQUENCE: CALL DCCONS (ALP, ALPBND, ALPCUM, DEL, 
DELBND, DELCUM, ARGCUM, TIMEl, AXISl, ANGl, WGHTl, 

IFRSTI, NTYPEl, BIASl, BBNDl, RHOSTl, RHOl, CALCl, SCOEFl, 
TIME2, AXIS2, ANG2, WGHT2, IFRST2, NTYPE2, B1A.S2, BBND2, 
RHOST2, RH02, CALC2, SCOEF2, AVGRHO, COEF, DRHOSQ, 

CHNG, STORl, STOR2, ALPR, DELR, STYPEl, STYPE2, BTYPE, RL, 
WORK, GWORKO, GWORK4, GWORK5, BllCUM) 

DESCRIPTION: 

DCCONS is a version of GCONES designed to operate under the Multi- 
Satellite Attitude Determination (MSAD) executive system. 

COMMON AREAS REFERENCED: 

DSCOPT, GCNl, MASCOM, STVEC 

EXTERNAL REFERENCES: 

ABS, AMAXl, BLKINV, CHECK, COFSM, FINAL2, GDCCON, 

GTSIZE, GTSTAT, MAXO, MESAGE, MINO, PTSIZE, SQRT 

STORAGE REQUIREMENTS: 16, 222 bytes of core storage 

VARIABLES: 

Description 


On input a priori estimate of 
polynomial coefficients for 
right ascension, in degrees (i.e, 
R.A. = ALP(l) + ALP(2) * T + 
ALP(3) * t 2 + ALP(4) * T^, 
where T = time of observation). 
On output, the final results. 

Convergence bounds for ALP, 
in degrees. 

Cumulative results for ALP(l). 
(e. g. , ALPCUM (5) contains the 
value of ALP(l) obtained for the 
fifth iteration). 


Variable 

Name 

Type 

Origin 

I/O 

ALP 

R*4 

CS 

I/O 


ALPBND 

R^4 

CS 

I 

ALPCUM 

R*4 

CS 

o 
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Variable 

Name 

Type 

Origia 

I/O 

Description 

DEL 

R*4 

CS 

I/O 

On input a priori estimate of 
polynomial coefficients for de- 
clination, in degrees, (i. e. , D = 
DEL{1) + DEL(2) * T + DEL(3) 

* t2 + DEL(4) * t 3, where T = 
time of observation). On out- 
put, the final results. 

DELBND 

R*4 


I 

Convergence bounds for DEL, 
in degrees. 

DELCUM 

R=^4 

CS 

o 

Cumulative results for DEL(l), 
(e. g. , DELCUM(4) contains the 
value of DEL(1) obtained for the 
fourth iteration). 

ARGCUM 

1*4 

CS 

o 

Iteration indicator for values in 
ALPCUM, and DELCUM 

TIMEl 

R*4 

CS 

I 

Reference times for Class 1 
(cone angle) data. 

AXISl 

\ 

R*4 

CS 

I 

Reference unit vectors for Class 
1 data (dimensioned 3 * number of 
Class 1 observations). 

ANGl 

R*4 

CS 

I 

Class 1 (cone angle) observa- 
tions in degrees, (acceptable 
range 0“ - 180°). 

WGHTl 

R*4 

CS 

I/O 

Class 1 weights. 

IFRSTl 

1*4 

CS 

I 

Pointers indicating starting 
positions for each type of Class 
1 data in the arrays.- 
TIMEl, AXISl, ANGl, and 
WGHTl. 

NTYPEl 

1*4 

CS 

I 

Number of observations of each 


type of Class 1 data. 
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Variable 

Name 


Description 


Type Origin I/O 

BIASl R*4 CS I/O On. input essential estimate of 

biases for each type of Class 1 
data (the value 9999999. indicates 
that no bias is to be determined 
for the corresponding angle 
type). On output final bias results. 

BBNDl R*4 CS I Convergence bounds for BIASl 

elements. 

RHOSTl R*4 CS O Class 1 statistics defined as: 

RHOSTl (1, 1) - weighted sum of 
angle residuals for type I data 
RHOSTl (2, 1) - weighted sum of 
squares of angle residuals for 
type I data 

RHOSTl (3, 1) - sum of weights 
for type I data 

RHOSTl (4, 1) - mean residual 
for type I data 

RHOSTl (5, 1) - standard devia- 
tion for type I data. 


RHOl 

R*4 

CS 

O 

Residuals for Class 1 data de- 
fined as observed minus 
calculated. 

CALCl 

R*4 

CS 

O 

Calculated angles for Class 1 
data. 

SCOEFl 

R*4 

CS 

O 

Derivatives of Class 1 angles 
with respect to state vector ele- 
ments (dimensioned as NP x # of 
observations, where NP = # of 
elements in state vector). 

TIME2 

R*4 

CS 

I 

Reference times for Class 2, 


dihedral angle, data 
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Variable 

Name 

Type 

Origin 


Description 

AXIS2 

R^ 

CS 

I 

Reference vectors for class 2 
data. (Dimension 6 * number of 
observations, the ith dihedral 
angle is measured from vector 
((l,i), (2,i), (3, i)) to vector 
((4,i), (5,i), (6,i)). 

ANG2 

R*4 

CS 

I 

Class 2 angles, in degrees 
(acceptable range (0° - 360°)). 

WGHT2 

R*4 

CS 

I 

Weights for Class 2 data. 

IFRST2 

■ 1*4 

CS 

I 

Pointers indicating starting 
positions for each type of class 
2 data in the arrays: TEME2, 
AXIS2, ANG2, and WGHT2. 

NTYPE2 

1*4 

CS 

I 

Number of obseirvations of each 
type of Class 2 data. 

BIAS2 

R*4 

CS 

I/O 

Essential estimate of biases for 
each type of Class 2 data (the 
value 9999999. indicates that no 
bias is to be determined for the 
corresponding angle type). 

BBND2 

R*4 

CS 

I 

Convergence bounds for B1AS2 
elements. 

RHOST2 

R*4 

CS 

o 

Class 2 statistics defined as; 


RHOST2 (1, 1) - weighted sum of 
angle residuals for type I data 
RHOST2 (2, 1) - weighted sum of 
squares of angle residuals for 
type I data 

RH0ST2 (3, 1) - sum of weights 
for type I data 

RHOST2 (4, 1) - mean residual 
for type 2 data 

RHOST2 (5, 1) - standard devia- 
tion for type I data. 
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Variable 

Name 

Type 

Origin 

I/O 

Description 

RH02 

RH 

CS 

o 

Residuals for Class 2 data de- 
fined as observed minus 
calculated. 

A T /^o 

T1 5lc/# 

iV •‘± 

Cl 

KJ 

Calculated angles for Class 2 
data. 

SC0EF2 

R*4 

CS 

0 

Derivatives of Class 2 angles 
with respect to state vector ele- 
ments. (Dimensioned as NP x # 
of observations, where NP = 
number of elements in the state 
vector, ) 

AVGRHO 

R*4 

CS 

o 

Used to store magnitude of 
average residual (dimensioned 
2 X 5). 

COEF 

R*4 

CS 

o 

Array used for coefficient, 
covariance, and correlation 
matricies. (Dimensioned 
NS X NS, where NS = number 
of elements in state vector. ) 

DRHOSQ 

R*4 

CS 

o 

Work array (dimensioned 13). 

CHNG 

R*4 

CS 

o 

Work array used to store the 
updates to the state vector 
after each iteration (dimensioned 
13). 

STORl 

RH 

CS 

0 

Work array (dimensioned 13). 

STOR2 . 

R*4 

CS 

o 

Work array (dimensioned 13). 

ALPR 

R*4 

CS 

o 

Right ascension (ALP) coefficients 
in radians. 

DELR 

R*4 

CS 

o 

Declination (DEL) coefficients, 
in radians. 
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Variable 

Name 

Type 

Origin 

I/O 

Description 

STYPEl 

R*4 

CS 

0 

Alpha-numeric work array 
(dimensioned 13). 

STYPE2 

R*4 

CS 

o 

Alpha-numeric work array 
(dimensioned 13). 

BTYPE 

1*4 

CS 

0 

Work array (dimensioned 13), 

RL 

L*1 

CS 

o 

Logical work array (dimensioned 13). 

WORK 

R*4 

CS 

0 

Work array (dimensioned 13). 

GWORKO 

R*8 

CS 

0 

Alpha-numeric work array used 
to store final summary results 
for display (must be dimensioned 
as 224). 

GWORK4 

R*4 

CS 

0 

Work array used to store observa- 
tion number for plotting (dimen- 
sioned as N, where N = number of 
observations, or maybe zero). 

GWORK5 

R*4 

CS 

o 

Work array used to store (O-C) 
residuals for plotting (dimensioned 
as N, where N - number of obser- 
vations or may be zero). 

BllCUM 

R*8 

CS 

o 

Alpha-numeric work array used to 
store cumulative biases for display 
(must be dimensioned as 105). 

OPTION 

1*4 

DC SOP T 

I/O 

Flag array for plotting options 
= 0 , do not plot 
= 1, plot 

FINISH 

1*4 

DCSOPT 

I/O 

Flag for terminating plot option 
table 

= 0, do not terminate 
= 1, terminate 

FINALD 

1*4 

DCSOPT 

I/O 

Flag for displaying summary 


display 

= 0, do not display 
= 1, display 



Variable 

Name 

Type 

Origin 

I/O 

Description 

lOUT 

1*4 

GCNl 

I 

FORTRAN device unit for specified 
printout. 

NCLASl 

1*4 

GCNl 

I 

Number of Class 1 data lypes. 

NCLAS2 

1*4 

GCNl 

I 

Number of Class 2 data types. 

NCOF 

1*4 

GCNl 

I 

Number of polynomial coefficients 
for ALP and DEL (range: 1 - 4). 

MAXIT 

1*4 

GCNl 

I 

Maximum number of iterations. 

mWT 

1*4 

GCNl 

I 

Intermediate printout level in- 
dicator (see references for 
various levels). 

IOC 

1*4 

GCNl 

I 

Residual storage indicator 
= 0, do not store residuals 
= 1, store residuals for display 
and plotting. 

ICALC 

1*4 

GCNl 

I 

Calculated values storage in- 
dicators 

= 0, do not store calculated 
values 

= 1, store calculated values for 
display. 

SMULT 

R*4 

GCNl 

I 

Residual edit criteria (the weights 
of angles whose magnitude of 
residual is greater than SMULT * 
(average of residual magnitudes) 
is set to the negative of the 
residual thus deleting them. 

NP 

1*4 

GCNl 

I 

Total number of elements in the 
state vector. (Defined as 2 * 
NCOF + number of biases. ) 

ISTEP 

1*4 

GCNl 

O 

Current iteration indicator. 
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Variable 

Name 

Type 

Origin 

I/O 

Description 

IRET 

1*4 

GCNl 

0 

Return code 
= 0, process converged 
= 1, MAXIT exceeded, process 
terminated 

= 2, process diverged, cor- 
rection element > 360° 

= 3, singular matrix 
= 4, number of biases > 5 
= 5, NCOF out of range 

CORMIN 

1*4 

GCNl 

0 

Display indicator for Class 1 
data 

= 0, do not display 
= 1, display 

CORMAX 

1*4 

GCNl 

O 

Display indicator for Class 2 
data 

= 0, do not display 
- 1, display 

lOPEN 

1*4 

MASCON 

I 

Graphics device indicator 
= 0, no graphics device active 
= 1, MSAD graphics device 
active 

OLDALP 

R*4 

STVECT 

o 

Current value of ALP before 
iteration update. 

OLDDEL 

R*4 

STVECT 

o 

Current value of DEL before 
iteration update. 

OLDBSl 

R*4 

STVECT 

o 

Current value of BIASl before 
iteration update. 

OLDBS2 

R*4 

STVECT 

o 

Current value of BIAS2 before 
iteration update. 

NEWALP 

R*4 

STVECT 

o 

Value of ALP after iteration 
update. 
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Variable 

Name 

Type 

Origin I/O 

Description 

NEWDEL 

R*4 

STVECT 0 

Value of DEL after iteration 
update. 

NEWBSl 

RH 

STVECT O 

Value of BIASl after iteration 
update. 

NEWBS2 

R*4 

STVECT O 

Value of BIAS2 after iteration 
update. 

DATA TRANSMISSION: 



Name 


Read/Write/ Check 

Description 

FTXXFOOl 


Write 

Intermediate printout, 
where XX - lOUT 

GCONEO 


Check 

DCCONS initial parameter 
display 

DCCl 


Check 

Class 1 data display 

DCC2 


Check 

Class 2 data display 

OPTABl 


Check 

Option table display 

RESTRICTIONS: 





1 - The number of polynominal coefficients must be greater than or equal to 1 

and less than or equal to 4. 

2 - The number of biases determined, for both Class 1 and Class 2 data, 

must be less than or equal to 5. 

3 - All calling sequence arrays are MSAD allocated, and hence, it is up 

to the user to ensure the allocation size of the arrays is not exceeded. 

SUBROUTINE COFSM 

CALLING SEQUENCE: CALL COFSM (TIME, AXIS, ANG, WGHT, NUMB, 
ITYPE, NDIM, ALPR, DELR, BIAS, IBIAS, COEF, DRHOSQ, RHOST, 
RH, CALC, SCOEF, JONE) 
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DESCRIPTION: 

COFSM is similar to the GCONES routine COFSUM with the following added 
features: calculated values can be stored, derivatives can be stored, re- 
siduals can be stored. 

COMMON AREAS REFERENCED: 

GCNl 

EXTERNAL REFERENCES: 

ABS, COS, SIN 

STORAGE REQUIREMENTS: 4884 bytes 

VARIABLES: 


Variable 

Name 

Type 

Origin 

I/O 

Description 

TIME 

R=H 

CS 

I 

Array of observation times. 

AXIS 

R*4 

CS 

I 

Reference vectors (dimensioned 
NDIM X (# of observations)). 

ANG 

R*4 

CS 

I 

Observed angles, in degrees. 

WGHT 

R*4 

CS 

I/O 

Weights for observed data. 

NUMB 

1*4 

CS 

I 

Number of observations for class 
and type being processed. 

ITYPE 

1*4 

CS 

I 

The class of data being processed. 

NDIM 

1*4 

CS 

I 

Indicator for class reference 
vectors 

= 3, for Class 1 data 
= 6, for Class 2 data 
(i. e. , NDIM = 3 * (number of 
reference vectors required to 
define ANG)). 

ALPR 

R*4 

CS 

I 

Right ascension coefficients, 


in radians. 
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Variable 

Name 

Type 

Origin 

I/O 

Description 

DELR 

R*4 

CS 

I 

Declination coefficients, in radians. 

BIAS 

R*4 

CS 

I 

Bias for class and type of data be- 
ing processed. 

miAS 

1*4 

CS 

I 

Index to indicate bias under 
consideration. 

COEF 

R*4 

CS 

O 

Vector [H]' [W] p, where H is 
derivative matrix, W is weight 
matrix, p is the residual vector, 
(i. e. , right side vector of simul- 
taneous equations. ) 

RHOST 

R*4 

CS 

0 

Statistics: 


RHOST(l) - weighted sum of 
residuals 

RHOST(2) - weighted sum of 
squares of residuals 
RHOST(3) - sum of weights 
RHOST(4) - mean residuals 
RHOST(5) “ standard deviations 


RH 

R*4 

CS 

O 

Vector of residuals. 

CALC 

R+4 

CS 

O 

Vector of calculated values. 

SCOEF 

R+4 

CS 

O 

Matrix of partial derivatives 
(dimensioned number of elements 
in state vector x number of 
observations). 

JONE 

1*4 

CS 

I 

Index indicating starting location 
of data in arrays TIME , AXIS , 
ANG, WGHT, RH, CALC, 
SCOEF for the class and type of 
data being processed. 

lOUT 

1*4 

GCNI 

I 

Fortran device imit for specified 


printout. 
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Variable 

Type 


I/O 


Name 

Origin 

Description 

NCOF 

1*4 

GCNl 

I 

Number of polynomial coefficients 
for ALP and DEL 

mwT 

1*4 

GCNl 

I 

Intermediate printout level indi- 
cator (see reference 1). 

TZERO 

R*4 

GCNl 

I 

Reference time. 

IOC 

1*4 

GCNl 

I 

Residual storage indicator 
= 0, do not store residuals 
= 1, store residuals for display 
and plotting 

ICALC 

1*4 

GCNl 

I 

Calculated values storage indi- 
cator 

= 0, do not store calculated 
values 

= 1, store calculated values for 
display 


DATA TRANSMISSION: 

Name Read/Write/ Display Description 

FTXXFOOl Write Intermediate printout, where 

XX = rOUT 

SUBROUTINE BLKINV 

CALLING SEQUENCE: CALL BLKINV (COEF, I, J, NP, DET, lERR, 

STORl, STOR2, RL) 

DESCRIPTION: 

BLKINV inverts a symmetric block diagonal matrix using a maximum pivot 
strategy. 

COMMON AREAS REFERENCED: 

None 
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EXTERNAL REFERENCES: 

ABS 

STORAGE REQUIREMENTS: 1408 bytes 
VARIABLES: 


Name 

Type 

Origin I/O 

Description 

COEF 

R*4 

CS 

I/O 

Symmetric matrix containing block 
to be inverted. On return, COEF 
contains inverted block. 

I 

1*4 

CS 

I 

Starting row and column of block 
to be inverted. 

J 

1*4 

CS 

I 

Stopping row and column of block 
to be inverted. 

NP 

1*4 

CS 

I 

Size of the square matrix COEF 
(dimension of COEF is NP x NP). 

DET 

R*4 

CS 

0 

Value of the determinant. 

lERR 

1*4 

CS 

0 

Error code 
= 0, normal return 
= 1, zero pivot element, inverse 
cannot be obtained 

STORl 

R*4 

CS 

O 

Work array (size of NP or larger). 

STOR2 

R*4 

CS 

0 

Work array (size of NP or larger). 

RL 

L*1 

CS 

O 

Work array (size of NP or larger). 

SUBROUTINE 

GST ATI 



- 

CALLING SEQUENCE: 

CALL 

GSTATl 

(ALP, ALPBND, ALPCUM, DEL, 

DELBND, 

DELCUM 

, ARGCUM, TIMEl, AXISl, ANGl, WGHTl, 

IFRSTl, 

NTYPEl, 

BIASl, 

BBNDl, 

RHOSTl, RHOl, CALCl, SCOEFl, 


TIME2, AXIS2, ANG2, WGHT2, IFRST2, NTYPE2, BIAS2, BBND2, 
RHOST2, RH02, CALC2, SCOEF2, AVGRHO, COEF, DRHOSQ, CHNG, 
STORl, STOR2, ALPR, DELR, STYPEl, STYPE2, BTYPE, RL, WORK, 
BllCUM) 
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DESCRIPTION: 


GSTATl stores cumulative iteration results for displaying and performs 
residual editing on the data. 

COMMON AREAS REFERENCED; 

FLAGG, GCNl, GDCON 


EXTERNAL REFERENCES: 

ABS, CHECK, INCORE, PTSIZE 

STORAGE REQUIREMENTS: 5400 bytes 


VARIABLES: 


Description 


A priori polynomial coefficients 
for right ascension, in degrees. 

Convergence bounds for ALP, 
in degrees. 

Cumulative results for ALP(l) 
(dimensioned as 21). 

A priori polynomial coefficients 
for declination, in degrees. 

DELBND R*4 CS I Convergence bounds for DEL, in 

degrees. 

DELCUM R*4 CS O Cumulative results for DEL (1) 

' (dimensioned as 21), 

ARGCUM 1*4 CS O Iteration indicator for values in 

ALPCUM and DELCUM (dimen- 
sioned as 21). 


Name 

Type 

Origin 

I/O 

ALP 

R*4 

CS 

I 

ALPBND 

R*4 

CS 

I 

ALPCUM 

R*4 

CS 

o 

DEL ■ 

R*4 

CS 

I 


TIMEl R*4 CS 


I Reference times for Class 1 (cone 

angle) data. 
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Variable 

Name 

Type 

Origin 

I/O 

Description 

AXISl 

R*4 

CS 

I 

Reference unit vectors for Class 
1 data (dimensioned 3 * number 
of Class 1 observations). 

ANGl 

R=K4 

cs 

I 

Class 1 (cone angle) observations, 
in degrees. 

WGHTl 

RH 

CS 

I/O 

Class 1 weights. 

IFRSTl 

1*4 

cs 

I 

Pointers indicating starting 
positions for each type of Class 
1 data in the arrays; TIMEl, 
AXISl, ANGl, WGHTl. 

NTYPEl 

1*4 

cs 

I 

Number of observations of each 
t 3 ^e of Class 1 data. 

BIASl 

R*4 

cs 

I 

Essential estimate of biases for 
each tj^e of Class 1 data. 

BBNDl 

R*4 

cs 

I 

Convergence bounds for BIASl 
elements. 

RHOSTl 

R*4 

cs 

I 

Class 1 statistics defined as: 


RHOSTl(l,I) - weighted sum of 
angle residuals for type I data 
RHOSTl(2,I) - weighted sum of 
squares of angle residuals for 
type I data 

RHOSTl(3,I) - sum of weights for 
type I data 

RH0ST1(4,I) - mean residuals for 
type I data 

RHOSTl(5, 1) - standard deviations 
for type I data. 


RHOl 

R*4 

CS 

I 

Residuals for Class 1 data de- 
fined as observed minus calculated. 

CALCl 

R*4 

CS 

I 

Calculated angles for Class 1 data. 
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Variable 

Name 

Type 

Origin 

I/O 

Description 

SCOEFl 

R*4 

CS 

I 

Derivatives of Class 1 angles witl 
respect to state vector elements 
(dimensioned as NP * number of 
observations where NP = number 
of elements in the state vector). 

TIME2 

R*4 

CS 

I 

Reference times for Class 2, 
dihedral angle, data. 

AXIS2 

R*4 

■CS 

I 

Reference vectors for Class 2 
data (dimensioned 6 x number of 
observations. The ith dihedral 
angle is measured from vector 
((1, i), (2,i), (3, i)) to vector 
((4,i), (5,i), (6,i». 

ANG2 

R*4 

CS 

I 

Class 2 angles, in degrees. 

WGHT2 

R*4 

CS 

I/O 

Weights for Class 2 data. 

IFRST2 

1*4 

CS 

I 

Pointers indicating starting 
positions for each type of Class 
2 data in the arrays: TIME2, 
AXIS2, ANG2, WGHT2. 

NTYPE2 

1*4 

CS 

I 

Number of observations of each 
type of Class 2 data. 

BIAS2 

R*4 

CS 

I 

Essential estimate of biases for 
each type of Class 2 data. 

BBND2 

R*4 

CS 

I 

Convergence bounds for BIAS2 
elements. 

RHOST2 

R*4 

CS 

I 

Class 2 statistics defined as: 
RHOST2(l,I) - weighted sum of 
angle residuals for type I data 
RHOST2(2,I) - weighted sums of 
squares of angle residuals for 
type I data 
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Variable 

Name 

Type 

Origin 

I/O 

Description 

RHOST2 

RM 

CS 

I 

RHOST2(3, 1) - sum of weights for 
type I data 

RHOST2(4, 1) - mean residuals for 
type I data 

RHOST2(5,I) - standard deviations 
for type I data. 

RH02 

R*4 

CS 

I 

Residuals for Class 2 data defined 
as observed minus calculated. 

CALC2 

R*4 

CS 

I 

Calculated angles for Class 2 
angles. 

SC0EF2 

R*4 

CS 

I 

Derivatives of Class 2 angles with 
respect to state vector elements 
(dimensioned as NP x # of observ- 
vations, where NP = number of 
elements in state vector). 

AVGRHO 

R*4 

CS 

0 

Used to store magnitude of 
average residual (dimensioned 
2 X 5). 

COEF 

R*4 

CS 

I 

Array used for coefficient, 
covariance, and correlation 
matrices (dimensioned NS x NS, 
where NS = number of elements 
in state vector). 

DRHOSQ 

R*4 

CS 

I 

Work array (dimensioned 13). 

CHNG 

R*4 

CS 

I 

Work array used to store the up- 
dates to the state vector after 
each iteration (dimensioned 13). 

STORl 

R*4 

CS 

I 

Work array (dimensioned 13). 

STOR2 

R*4 

CS 

I 

Work array (dimensioned 13). 

ALPR 

R*4 

CS 

I 

Right ascension (ALP) coefficients, 
in radians. 
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Variable 

Name 

Type 

Origin 

I/O 

Description 

DELR 

R*4 

CS 

I 

Declination (DEL) coefficients, 
in radians. 

STYPEl 

R*4 

CS 

I 

Alpha-numeric work array 
(dimensioned 13). 

STYPE2 

R*4 

CS 

I 

Alpha-numeric work array 
(dimensioned 13). 

BTYPE 

1*4 

CS 

I 

Work array (dimensioned 13). 

RL 

L*1 

CS 

I 

Work array (dimensioned 13). 

WORK 

R*4 

CS 

I 

Work array (dimensioned 13). 

BllCUM 

R*8 

CS 

O 

Alpha-numeric work array used 
to store cumulative biases for dis- 
play (dimensioned as 105). 

lOUT 

1*4 

GCNl 

I 

Fortran device unit for specified 
output. 

NCLASl 

1*4 

GCNl 

I 

Number of class 1 data types. 

NCLAS2 

1*4 

GCNl 

. I 

Number of Class 2 data types. 

IRWT 

1*4 

GCNl 

I 

Intermediate printout level in- 
dicator (see Reference 1 for 
various levels). 

IOC 

1*4 

GCNl 

I 

Residual storage indicator 
~ 0, do not store residuals 
= 1, store residuals for dis- 
play and plotting. 

SMULT 

R*4 

GCNl 

I 

Residual edit criteria (the weights 


of angles whose magnitude of re- 
sidual is greater than SMULT * 
(average of residual magnitude) is 
set to the negative of the residual 
thus deleting them from the dif- 
ferential correction process. 
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Variable 

Name 

Type 

Origin 

I/O 

Description 

ISTEP 

1*4 

GCNl 

I 

Current iteration indicator. 

AVG 

R*4 

GDCON 

O 

Residual edit bound (i. e. , average 
residual for Class 1 and Class 2 
data). 


DATA TRANSMISSION: 


Name 

FTXXF001 

GSTATA 

GSTATl 

SUBROUTINE FINAL2 


Read/Write/ Check 
Write 

Check 

Check 


Description 


Intermediate printout, where 
XX = lOUT. 

Cumulative state vector 
display. 

Residual edit data display. 


CALL SEQUENCE: CALL FINAL2 (GWORKO, ALP, DEL, AI, DI, BIASI, 

BIASl, BIAS2I, BIAS2, RHOSTl, RHOST2, NTYPEl, NTYPE2, NCOF, 
lALLO, COVAR, NC) 


DESCRIPTION: 

FINAL2 converts the initial and current iteration values of the state vector 
into alpha-numeric characters for the summary display. 


COMMON AREAS REFERENCED: 

None 

EXTERNAL REFERENCES: 

INCORE, PTSIZE, SQRT 

STORAGE REQUIREMENTS: 4224 bytes 
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VARIABLES: 


Variable 

Name 

Type 

Origin 

I/O 

Description 

GWORKO 

R*8 

CS 

o 

Work array where alpha-numeric 
equivalents of previous and cur- 
rent values of the state vector are 
stored. 

ALP 

RH 

CS 

I 

Right ascension polynomial coef- 
ficients, in degrees. 

DEL 

R*4 

CS 

I 

Declination polynomial coefficients, 
in degrees. 

AI 

R*4 

CS 

I 

Initial right ascension polynomial 
coefficients, in degrees. 

DI 

R*4 

CS 

I 

Initial declination polynomial 
coefficients, in degrees. 

BIASI 

n*4: 

CS 

I 

Initial biases for each type of 
Class 1 data, in degrees. 

BIASl 

R*4 

CS 

I 

Biases for each type of Class 1 
data, in degrees. 

BIAS2I 

R*4 

CS 

I 

Initial biases for each type of 
Class 2 data, in degrees. 

BIAS2 

R*4 

CS 

I 

Biases for each type of Class 2 
data, in degrees. 

RHOSTl 

R*4 

CS 

I 

Class 1 statistics (see DCCONS 


module description for RHOSTl 
(1,1) - RHOSTl(3,I)) 

RHOSTl(4,I) - mean residual 
for type I data 

RHOSTl (5, 1) - standard deviation 
for type I data. 
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Variable 

Name 

Type 

Origin 

I/O 

Description 

RHOST2 

R=H 

CS 

I 

Class 2 statistics (see DCCONS 
module description for RHOST2 
(1, 1) - RHOST2 (3, 1)) 

RHOST2(4, 1) - mean residual for 
type I data 

RHOST2(5,I) - standard deviation 
for type I data. 

NTYPEl 

1*4 

CS 

I 

Number of Class 1 data types. 

NTYPE2 

1—1 

CS 

I 

Number of Class 2 data types. 

NCOF 

1*4 

CS 

I 

Number of polynomial coefficients 
for ALP and DEL. 

lALLO 

1*4 

CS 

I 

Allocation size for GWORKO 
array (must be 224). 

CO VAR 

1*4 

CS 

I 

Covariance matrix for state vector 
elements. 

NC 

1*4 

CS 

I 

Number of elements in the state 
vector. 

SUBROUTINE 

GDCCON 




CALLING SEQUENCE: 
NTYPEl, NTYPE2, 

CALL 

RHOl, 

GDCCON 

RH02, 

(IALL4, IALL5, IFRSTl, IFRST2, 
GWORK4, GWORK5, lALLO) 


DESCRIPTION; 

GDCCON stores the computed residuals for plotting into work arrays and 
calls the MSAD related tables to display the plots. 


COMMON AREAS REFERENCED: 
DCSOPT, GCNl 

EXTERNAL REFERECES: 
CHECK, PTSIZE 
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STORAGE REQUIREMENTS: 1786 bytes 


VARIABLES; 


Variable 

Name 

Type 

Origin 

I/O 

Description 

IALL4 

1*4 

CS 

I 

Allocation size of GWORK4 array. 

IALL5 

1*4 

CS 

I 

Allocation size of GWORK5 array. 

IFRSTl 

1*4 

CS 

I 

Pointers indicating starting posi- 
tions for each type of Class 1 data 
in the RHOl array. 

IFRST2 

1*4 

CS 

I 

Pointers indicatir^ starting posi- 
tions for each lype of Class 2 data 
in the RH02 array. 

NTYPEl 

1*4 

CS 

I 

Number of observations of each 
t3T>e of Class 1 data. 

NTYPE2 

1*4 

CS 

I 

Number of observations of each 
type of Class 2 data. 

RHOl 

R*4 

CS ■ 

I 

Residuals for Class 1 data defined 
as observed minus calculated. 

RH02 

R*4 

CS 

I 

Residuals for Class 2 data defined 
as observed minus calculated. 

GWORK4 

R*4 

CS 

o 

Work array for storage of obser- 
vation nurnbers for each class and 
type of data (dimensioned as # of 
observations). 

GWORK5 

R*4 

CS 

o 

Work array for storage of residuals 
for each class and type of data 
(dimensioned as number of 
observations). 

lALLO 

1*4 

CS 

I 

Allocation size of GWORKO (must 


be 224 or 0). 
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Variable 

Name 


Type 


Origin 


I/O 


Description 


OPTION 

1*4 

DC SOFT 

I/O 

Flag array for plotting options 
= 0, do not plot 
= 1 , plot 

FINISH 

1*4 

DC SOFT 

I/O 

Flag for terminating plot option 
table 

= 0, do not terminate 
= 1, terminate 

FINALD 

1*4 

DC SOFT 

I/O 

Flag for displaying summary 
display 

= 0, do not display 
= 1, display 

NCLASl 

1*4 

GCNl 

I 

Number of Class 1 data types. 

NCLAS2 

1*4 

GCNl 

I 

Number of Class 2 data types. 

IOC 

1*4 

GCNl 

I 

Residual storage indicator 
= 0, do not store residuals 
= 1, store residuals for display 
and plotting 


DATA TRANSMISSION: 


Name 

Read/Write/Check 

Description 

DRESll 

Check 

Residual plot for Class 1 
type 1 data. 

DRES12 

Check 

Residual plot for Class 1 
type 2 data. 

DRES13 

Check 

Residual plot for Class 1 
type 3 data. 

DRES14 

Check 

Residual plot for Class 1 
type 4 data. 

DRES15 

Check 

Residual plot for Class 1 
type 5 data. 
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Name 

Read/Write /Check 

Description 

DRES21 

Check 

Residual plot for Class 2 
type 1 data. 

DRES22 

Check 

Residual plot for Class 2 
type 2 data. 

DRES23 

Check 

Residual plot for Class 2 
t3Tje 3 data. 

DRES24 

Check 

Residual plot for Class 2 
tjrpe 4 data. 

DRES25 

Check 

Residual plot for Class 2 
type 5 data. 

DFINDP 

Check 

Summary display 

OPTABl 

Cheek 

Plot option table display 
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SECTION 3 
RESOURCES 

The DCCONS subsystem is designed to operate under the Multi-Satellite Attitude 
Determination (MSAD) system on either the IBM 360/75, 360/91, or 360/95. 

3.1 Environment 


DCCONS is a differential correction routine which minimizes the weighted sum 
of residuals sqfuared between measured and computed angles to obtain corrections 
to the state vector through the facility of interactive graphics. The MSAD Ex- 
ecutive system provides the interactive capabilities through a graphics display 
device. The operator can edit control parameters and data via the display de- 
vice, thereby enhancing the otherwise noninteractive flow of the program. 

3.1.1 Hardware Requirements 

Hardware requirements for the DCCONS subsystem are as follows: 

• Input: 

— none 

• Output: 

— one line printer 

— one 2250 or 2260 graphics display unit 

— one tape drive (optional, if hard copy of the MSAD plots is required) 

3.1.2 Storage Requirements 

The DCCONS subsystem requires 32.5 K b 5 d;es of core storage on the IBM System/ 
360-95 to operate in a graphics mode. Due to the dynamic allocation feature of 
the MSAD system, this figure does not include the allocation sizes of the work 
arrays which are user determined, nor does this figure include the amount of 
core storage required to store the DCCONS graphics tables. 

3.2 Software Requirements 

The DCCONS subsystem is written in the FORTRAN IV programming language, 
currently operational on OS Release 21. 6. The following external libraries are 
assessed by DCCONS; 

• IBM System/360 FORTRAN IV Library Subprograms 

• Multi -Satellite Attitude Determination (MSAD) Executive System User’s 
Guide (Ref. 14) 
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SECTION 4 
INPUT 

All user supplied input is passed to the DC CONS subsystem through the use of 
calling sequences and labeled COMMON areas. For a definition of input param- 
eters, refer to Section 2, Module Descriptions, 

The user may also alter control parameters and data through the interactive 
graphics facility. For a discussion of this feature, refer to Section 5, Graphics 
Output. 
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SECTION 5 
GRAPHICS DISPLAYS 


This section describes all the graphics displays generated by the DCCONS sub- 
system. These displays are designed to aid an operator at a 2250 graphics ter- 
minal in the immediate determination of attitude solutions and to insure data 
consistency. Controlled by user option, these displays permit an operator to 
alter the initial state vector variable estimates and variable error tolerances, 
to review input cone and dihedral angles with their associated weights and times, 
to observe the cumulative iteration results for each state vector update, to re- 
view the calculated residuals and to alter any, if needed, to choose observed 
minus computed (0-C) residual plots for observation, and to view the summary 
of the state vector updates for each iteration. 

Several general comments should be noted. Each display is associated with an 
MSAD table which is called from the DCCONS sub-system. In accordance with 
the MSAD conventions, any display not required in a given pass through the data 
may be omitted by setting the status flag of the display control point to SKIP in 
the MSAD ARTCMM display. See Figure 5-1 for a list of all DCCONS related 
control point display names. The dimensions of all MSAD allocated arrays are 
user controlled; hence, the operator can alter the master numbers of all internal 
arrays via the MSAD XSTOPS display. See Figure 5-2 for an illustration of the 
available DCCONS arrays. In addition, the user has the opportunity to request 
any display from any display screen via the MSAD automatic call mechanism. 

The user should be cautioned that a display thus called will contain current in- 
formation only if the display has been previously created within the same iter- 
ation as the display from which the call has been issued . 

Short descriptions of the functions and options of the DCCONS displays are pro- 
vided in this section. In addition, an illustration of the display as it would appear 
on the IBM 2250 graphics console is provided for user correlation. 

5.1 DCCONS Coefficients and Parameters Display 

This display permits an operator at the IBM 2250 console to observe the Initial 
attitude estimates and the initial program tolerances, to alter these values 
through the IBM 2250 graphics display keyboard, and to redisplay them on the 
2250 unit. 

The DCCONS coefficients and parameter display consists of three groups. The 
first group contains the DCCONS control parameters (i.e. , number of alpha/ 
delta coefficients, maximum number of iterations, printed output level, printer 
unit, numbers of class 1 and class 2 data types, system reference time, residual 
edit criteria, and the number of elements in the state vector). If the number of 
alpha /delta coefficients, the numbers of class 1 and class 2 data types, or the 
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number of biases to be solved (see group three) are altered, the number of ele- 
ments in the state vector must also be altered to coincide. If this number has 
not been altered, the original display will reappear. When the numbers coincide, 
the augmented or deleted display will appear for user input into the third group. 

The second group consists of option parameters. These options permit the oper- 
ator to choose which data, if any, is pertinent for display purposes. If the user 
requests the storage of residuals for plotting, the DCCONS residuals plot arrays 
must be allocated. If this option is turned off, the operator cannot request any 
residual plots. The "store computed values for display" option allows the oper- 
ator to observe the calculated angles. If this option is not activated, a series of 
EEEEEEE's will appear in the ’CALCULATED VALUES’ column of the RESIDU- 
ALS and WEIGHTS display (see sections 5. 6 and 5. 7). The final option in this 
group permits the operator to review and edit class 1 and/or class 2 data. 

The third group consists of the initial state vector estimates and convergence 
bounds. The user can alter any or all of the values present. To disregard a bias 
associated with a particular class and t3q3e of data, the number 9999999.0 shoiild 
be entered into the bias slot. If the number of state parameter values has been 
previously altered, this third group will be changed to reflect the alteration. The 
user then should input into the variable slots. 

Figure 5.3 illustrates the DCCONS Coefficients and Parameters Displays, 

5.2 DCCONS Observed Data — Class 1 

This display permits an operator at the IBM 2250 graphics console to observe all 
class 1 (cone angle) data input. The values displayed (i.e. , time of observation, 
reference vector, cone angle, weight) can be altered by the user. 

To obtain this display, the operator can either enter a YES into the 'EDIT CLASS 
1 DATA’ parameter, or he can exercise the MSAD automatic call mechanism and 
CALL this display (DCll) from any other MSAD display. 

Figure 5-4 illustrates the DCCONS Observed Data — Class 1 Display 

5.3 DCCONS Observed Data — Class 2 


This display permits an operator at the IBM 2250 graphics console to observe all 
Class 2 (dihedral angle) data input. The values displayed (i.e. , time of observa- 
tion, reference vector, dihedral angle, weight) can be altered by the user. 

To obtain this display, the operator can either enter a YES into the ’EDIT CLASS 
2 DATA’ parameter, or he can exercise the MSAD automatic call mechanism and 
CALL this display (DC22) from any other MSAD display. 
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Figure 5-4 illustrates the DCCONS Observed Data — Class 1 Display. 

5.3 DCCONS Observed Data — Class 2 

This display permits an operator at the IBM 2250 graphics console to observe all 
Class 2 (dihedral angle) data input. The values displayed (i. e. , time of observa- 
tion, reference vector, dihedral angle, weight) can be altered by the user. 

To obtain this display, the operator can either enter a YES into the 'EDIT CLASS 
2 DATA' parameter, or he can exercise the MSAD automatic call mechanism and 
CALL this display (DC22) from any other MSAD display. 

Figure 5-5 illustrates the DCCONS Observed Data — Class 2 Display. 

5.4 Error Statistics Display 


This display allows the user at the 2250 graphics console to observe the computed 
mean residuals and standard deviations for each class and type of data being pro- 
cseed. This display can either be obtained by setting the status flag of the display 
(DCCONS RESIDUAL STATISTICS) to 'STOP', or it can be CALLed via the MSAD 
automatic call mechanism from any subsequent display (see Sections 5.5, 5.6, 
5.7, 5.8, 5.9) within the same iteration. 

Figure 5-6 illustrates the Error Statistics Display, 

5.5 Cumulative State Vector Display 


This display allows an operator at the IBM 2250 graphics console to observe, on 
an iteration by iteration basis, the updates to the state vector. The purpose of 
this display is to permit the operator to respond to any gross alteration in the 
state vector values. This display can either be obtained by setting the status flag 
of the display (DCCONS CUMULATIVE STATE RESULTS) to ’STOP’, or it can be 
obtained by issuing a CALL via the MSAD automatic call mechanism from any 
subsequent display (see Sections 5.6, 5,7, 5.8, 5.9) in the same iteration. 

Figure 5-7 illustrates the Cumulative State Vector Display. 

5. 6 Class 1 Residuals and Weights 

This display permits an operator at a 2250 graphics console to observe the calcu- 
lated residuals (observed minus computed) and their associated weights. The 
user has the option to alter any of the angle weights. If a negative weight is asso- 
ciated with an input angle, that data has been edited by the residual edit feature of 


C-32 



DCCONS. Those angles so edited will not be included in the current and subse- 
quent calculations of the state vector updates, and will not appear in any of the 
- (O-C) residual plots. If the user manually edits the data, the data so edited will 
included in the current iteration, but will be disregarded by subsequent iterations. 

The residuals will only be displayed if the 'STORE RESIDUALS FOR PLOTTING' 
in the DCCONS COEFFICIENTS AND PARAMETERS Display (see Section 5.1) 

Figure 5-8 illustrates the Class 1 Residuals and Weights. 

5. 7 Class 2 Residuals and W eights 

The display permits an operator at a 2250 graphics console to observe the calcu- 
lated residuals (observed minus computed) and their associated weights. The 
user has the option to alter any of the angle weights. If a negative weight is 
associated with an input angle, that data has been edited by the residual edit fea- 
ture of DCCONS. Those angles so edited will not be included in the current and 
subsequent calculations of the state vector updates, and will not appear in any of 
the (O-C) residual plots. If the user manually edits the data, the data so edited 
will be included in the current iteration, but will be disregarded by subsequent 
iterations. 

The residuals will only be displayed if the 'STORE RESIDUALS FOR PLOTTING' 
in the DCCONS COEFFICIENTS AND PARAMETERS Display (see Section 5.1) 

Figure 5-9 illustrates the Class 2 Residuals and Weights. 

5, 8 Plot Option Table for DCCONS Display 

This display permits an operator at an IBM 2250 graphics console to observe the 
status of DCCONS and to choose (O-C) residual plots for observation. 

The PLOT OPTION TABLE consists of three groups. The first group reports on 
the status of DCCONS at the current iteration. If 'DID DCCOISB CONVERGE?' is 
set to 'NO', and all other status’ are 'NO', then the user has the option to con- 
tinue processing, to terminate, or to reprocess. If any of the other status ques- 
tions are answered with a 'YES’ , the user has the option of terminating or reini- 
tializing. If neither of these options (see group three) is chosen, then the termi- 
nation of the display will result in the termination of DCCONS processing. This 
group is protected and cannot be altered by the user. 

The second group consists of a list of plots available for user inspection and the 
attitude summary display option. The user may choose any plot, and/or the 
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summary display by typing in 'YES' into the associated field. Any number of 
plots may be chosen, but the plots will appear in the order listed in the PLOT 
OPTION TABLE Display. If the user does not require any of the displays offered, 
and all of the status' in group one are set to 'NO' the operator can 'SKIP' out of 
PLOT OPTION TABLE Display. If, however, any display is requested or if any 
of the status’ in group one is set to 'YES', the user must request termination of 
the PLOT OPTION TABLE Display (see group three). If this option is not set, 
the PLOT OPTION TABLE Display will continue to appear until this option has 
been set to 'NO' by the user. 


The third group consists of options available to the user. The user may termi- 
nate DCCONS processing from this display; he may reinitialize DCCONS process- 
ing; or he may allow the program to flow normally by not setting any of the above 
options. Included in this third group is the option to 'EXIT THE PLOT OPTION 
TABLE'. When the user is finished observing a particular iteration of data, the 
user must set the exit option to 'YES'. DCCONS will continue processing the next 
iteration, or it will process according to the options in group three. 

Figure 5-10 illustrates the PLOT OPTION TABLE. 

5,9 Final State Vector Results from DCCONS Display 

This display allows an operator at an IBM 2250 console to view the initial and 
intermediate iteration state vector values plus the mean residuals and standard 
deviations for each type and class of data. 


The display can only be observed if the appropriate field in the PLOT OPTION 
TABLE (see Section 5.8, SUMMARY DISPLAY) is set to 'YES'. 

Figure 5-11 illustrates the FINAL STATE VECTOR RESULTS FROM DCCONS 
Display. 
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o.esssE 

02 

44 

o.esoaE 

02 

0.8573F 

02 

44 

0.6547E 

02 

C.6337P^ 

02 

44 

0.3487^ 

02 

c.8eo.3E 

02 

44 

0.860 IF 

02 

Q.3619F 

02 

44 
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02 

0 .aC35E 

02 

44 
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02 
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02 

44 
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02 
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02 

44 
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44 

CLASS 1 


CLASS 1 

44 

9ESI0U ALS 


WEIGHTS 

44 

-0.26SSe 

00 

0.0 

44 

-0.5822K 

00 

0.0 

♦ 4 

0.5047E 

00 

0.0 

44 

-C.ll C8E- 

01 

0.0 

44 

0.1 647F 

01 

0*0 

44 

0.6045E 

oo 

0.0 

44 

-0.l7flOE 

oo 

0.0 

44 

-0.4494^ 

oo 

0.0 

4* 

0.43SSF- 

01 

0.0 

♦ 4 

0 •46S6E 

oo 

0.0 

44 

-0.3355E' 

01 

0.0 

44 

-o.iseiE 

oo 

0.0 

44 

-0. 1492H 

oo 

0.0 

44 

0.6923F 

oo 

0.0 

44 

0.2219C 

01 

0.0 

44 

0.2095E 

oo 

0.0 

*4 

0.93 55K 

00 

0.0 

44 

-0.4S52E-01 

0.0 

44 

0.61C4E 

oo 

0.0 

44 

-0.9504-3 

oo 

0.0 

44 

-0.1 187F 

01 

0.0 

44 

-0 . 3943F 

oo 

0*0 

44 

-0.3739E 

oo 

0.0 

44 

-0.S591E 

oo 

0.0 

44 

-0.10Q2E 

01 

0.0 

44 

-0.2523E 

01 

0.0 

44 

-0.30 5 IF 

01 

0.0 

44 

-C.8509F 

oo 

0.0 

44 

C.21 1 4E 

01 

0.0 

44 

0.2152E 

01 

0*0 

44 

0.1 Sa7F 

01 

0.0 

44 

0.1890C£ 

01 

0.0 

44 

0.81 aee 

oo 

0.0 

44 

-C.24C4F 

oo 

0.0 

44 

-C.1729E 

oo 

0.0 

44 

-0.3939E 

oo 

0.0 

44 

-0.2919E 

oo 

0.0 

44 

-0.11 2 7t* 

oo 

0.0 

♦ 4 

-0.4033F 

oo 

0.0 

44 

-o.u e4F 

Oi 

0.0 

44 

-Q. 1790E 

oo 

0.0 

44 

C.4801F 

oo 

0.0 

44 

0. 1 586c 

01 

0.0 

44 

-0.1963E 

01 

0.0 

44 
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** 

** 
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** 
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** 


CLRi^SNT IT^flATIGN 

NUHBf-R 


1 


** 

** 







** 

** 

CLASS 2 


CLASS 2 


CLASS 2 

CLASS 2 

** 

** 

y»^GLES 


CALCULATED 

9ESI0U4LS 

WEIGHTS 

** 

** 

0* 1423E 

03 

0« 1 4246 

03 

-0.51 1 5F->01 

0.0 

** 

** 

0. lAzis: 

03 

0.1A24E 

03 

-G.3071E 00 

0.0 

** 

** 

0* 1446^ 

03 

0« 14466 

03 

0.2983^-01 

0.0 

** 

** 

0, 1451E 

03 

0.14466 

03 

G.S0C7F 00 

0.0 

4* 

** 

0» 14631^ 

03 

Q. 1 4686 

03 

-O.6340E-O2 

0.0 

** 

** 

0. 1477E 

03 

0. 1 46aF 

03 

C.d401E 00 

0.0 

4 * 

** 

0. 148S^i 

03 

0.1 4896 

03 

-C.6a79fc£-0l 

0.0 

** 

** 

o« i4oec£ 

03 

0.1 489E 

03 

'0.1421F 00 

0.0 

** 

** 

0* 1509E 

03 

0. 1 51 16 

03 

-0.2078F 00 

•0.0 

** 

4* 

0* 1S08H 

03 

fl. 1 El IE 

03 

-C.3329E 00 

0.0 

** 

** 

0*1936^ 

03 

a. 15336 

03 

0.1499P OO 

0.0 

** 

** 

0. 1 S3se 

03 

0. 1 E34F 

,03 

0.44e5E 00 

0.0 

** 

** 

C. 1555E 

03 

0.15SAF 

03 

C.596aF-Ql 

0.0 

** 

4* 

0. 15581=: 

03 

0.15541- 

03 

0.31 78r: 00 

0.0 

** 

** 

0. 1577F 

03 

0.1 576E 

03 

C.7852E-01 

0.0 

*4 

** 

0« 1576E 

03 

0. 1 5776 

03 

-0.1042E 00 

0.0 

*4 

** 

0. isgaf: 

03 

0. 15906 

03 

-0.6729E-02 

0.0 

** 

** 

C. 1596£ 

03 

0.1 5996 

03 

-0.2fle€F 00 

0.0 

** 

** 

0* 1617E 

03 

0.1619E 

03 

-C.1746F OO 

0.0 

**■ 

4* 

0. 1623F 

03 

0.16195 

03 

0.3826K 00 

0.0 

** 

** 

0« 1542E 

03 

o.jeAiE 

0-3 

0.77-21F-01 

0.0 

** 

49 

0 • 1&42E 

03 

0. 1 642E 

03 

0 .6802e-01 

0.0 

** 

4* 

0. 16836 

03 

0.1663E 

03 

-0.3262H-01 

0.0 

** 

** 

a. 1666E 

03 

0.16646 

03 

G.2781E 00 

0.0 

** 

** 

0* 1683F 

03 

0. 1684E 

03 

-0.721 3E-01 

O.Q 

** 

** 

0. 168 3F 

03 

0.1 6846 

03 

-0.13llr: 00 

0.0 

** 

** 

0*1706F: 

03 

<].l 706E 

03 

-0.1617F-01 

0.0 

** 

** 

0 *17096 

03 

0.17C7E 

03 

0.2832E 00 

0.0 

** 

** 

0. 17306 

03 

0. 1728F 

03 

Q.I49CF OO 

0.0 

** 

** 

0. 1730E 

03 

fl .1729F 

03 

0.1361E 00 

0.0 

** 

** 

0* 1749S 

03 

0. 1749E 

03 

0.11 69E-D't 

0.0 

** 

** 

0. 1752H 

03 

0.1 749E 

03 

0.2231F OO 

0.0 

** 

** 

0* 177JE 

03 

0.1 77 IE 

03 

0.2420E-01 

0.0 

** 

** 

0* 1773E 

03 

0.1 771E 

03 

0.1735E OO 

0. 0 

** 

** 

0.17936 

03 

0. 1 793E 

03 

-C.5240F-01 

0.0 - - - 

** 

** 

0. 1794E 

03 

0.1794E 

03 

C.68C7E-01 

0.0 

** 

** 

0. 18146 

03 

0.1 eiAE 

03 

-C.2660E-01 

0.0 . - 

-** 

4 * 

0. iei6F 

03 

0.1 814H 

03 

0.21 94E 00 

0.0 

** 

4 * 

0.ia38E 

03 

0.ie36E 

03 

0.2394E-00- ~ 

0.0 — 

** 

4 * 

0. laaoF 

03 

0.1 63 6E 

03 

0.1668E OO 

0.0 

** 

** 

0. leSBE 

03 

0. ieS8F 

03 

- - 0-3688E— 01 

0.0 - - 

..—** 

** 

0. 18576 

03 

0.I853E 

03 

-0.160SE OO 

0.0 

** 

** 

0. 18786 

03 

0*16796 

03 

-0.8949E-01 

0.0 

** 

♦ ♦ 

0. 1900F 

03 

0.I9D1E 

03 

-0.7481E-01 

0.0 

** 

4 * 
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44t 

CST2 


CLASS 2 OeSlJUALS AKO WEIGHTS 



+ ♦ 

** 








44 

** 

CUfifENT ITERATICN 

NUMBEf? 


- 1 ■ - 



44 

«* 








4* 


CLASS 2 


CLASS 2 


CLASS 2 

CLASS 2 


*4 

** 

AhCLES 


CALCULATED 

:^esiouALs 

WEIGHTS 


44 

44 

0.t900E 

03 

'o.i9oie 

03 

-0.8972E-O1 

0.0 


44. 

44 

0* 1944E 

03 

0.1944E 

03 

0*19965-01 

0.0 


44 

♦ 4 

a.l943E 

03 

0.1944E 

03 

-0.80435-01 

- 0.0 


44 

44 

0* 1963E 

03 

0.1966F 

03 

-C. 29325 00 

0.0 


44 

*4 - 

0* 1965E 

03 

0. 1466E 

03 

-0.1052F- OO 

0.0 


44 

*4 

0.19875 

03 

0. 1-9885 

03 

-0.73636-01 

0.0 


44 

44 ' 

0. 1986H 

03 

0- 1 9dae 

03 

-0.19715 00 

0.0 


+ 4 

44 

0.2009E 

03 

0.2009E 

03 

C. 33575-03 

. 0.0 


*4 

44 

0.2008E 

03 

0.200^ 

03 

-C-.46715-01 

0*0 


44 

44 

0.203 25 

03 

0.2031E 

03 

-0.3220E-02 

0.0 


44 

44 

0.2030F 

03 

0.20315 

03 

-0*82235-01 

0*0 


44 

44 

0.20SIF 

03 

0.2053E 

03 

-0.14155 00 

0.0 


44 

>4 

a.£053E 

03 

0.205 35 

03 

-0.19626-01 

0.0 


44 

44 

0.20735 

03 

0.207 35 

03 

-0.51 576-01 

0.0 


44 

♦4 

0.2C93H 

03 

0.2095E 

03 

■ -0.2066K 00 

0.0 


44 

44 

0. ?09fee 

03 

0.2096E 

03 

-0.30525-02 

0*0 


44 

44 

0.2117E 

03 

0-21165 

03 

-0.23936-01 

0.0 


44 

44 

0 . 2 U 7E 

03 

0.21 1 85 

03 

-0.56175-01 

0.0 


44 

44 

0-2 161E 

03 

0.2160E 

03 

0.1 1545-01 

0.0 


44 

44 

0.21615 

03 

0.21615 

03 

-0*54025-02 

0.0 


44 

44 

c.aiaiE 

03 

0 « 2 1 d 2F 

03 

-0.1144E- 00 

0.0 


44 

44 

0. 21835 

03 

0.21835 

03 

0.171 16-01 

0.0 


44 

44 

C. 1 430E 

03 

0. 14295 

03 

C. 72945-01 

0.0 


44 

44 

0. 14315 

03 

0.14295 

03 

C. 131 45 00 

0.0 


44 

44 

O. 14515 

03 

0.14=15 

03 

0.17615-01 

0*0 


44 

44 

0. 1452E 

03 

0. 1451F 

03 

0.74986-01 

0.0 


44 

44 

0. I472F 

03' 

0.1 472E 

03 

-0.1 361fc-01 

0.0 


44 

44 

C. 14705 

03 

0.14725 

03 

-0.21996 00 

0.0 


44 

44 - 

0. 1494F 

03 

0. 1 49 45 

03 

0.17SIF-01 

0,0 


4* 

44 

0. 1491F 

03 

C.l 4955 

03 

-0,36465 00 

0.0 


44 

44 

, 0.15155 

03 

C. 1 51 65 

03 

-C.9055F-01 

0.0 


44 

44 

0. 151 3E 

03 

0.1517c 

03 

-C. 31475 00 

0.0 


44 

44 

0. 1537P 

03 

0.15375 

03 

-0.28525-01 

... 0.0 


44 

44 

0. 1 538H 

03 

0 . 1 5 3 75 

03 

0.79505-01 

0.0 


44 

44 

0. 15 59E 

03 

O.l 5595 

03 

-0.63776-01 - 

0.0 - 


4* 

44 

.0- 16615 

03 

0. 1 5605 

03 

0.18475 00 

0.0 


44 

44 

0. 1583H 

03 

o.i5ain 

03 

0.1065F 00 

0.0 


44 

44 

0- 157flt- 

03 

6.1 5825 

03 

-0.33166 00 

0.0 


44 

44 

0. I603E 

03 

0.16025 

03 

0.4660F-01 

0.0 


44 

44 

0-I604t: 

03 

0. 16035 

03 

0.11725 00 

0.0 


44 

44 

0. 1623E 

03 

0. 16245 

03 

-0.10925 00 

--0.0 


44 

4* 

0. 1625F 

03 

0.16255 

03 

-0 .44255-03 

0.0 


44 

44 

0. 16445 

03 

0.16465 

03 

-0.29365 00 

0.0 


4* 

44 

0. 1646E 

03 

0.1 6475 

03 

-0,11656 00 

0.0 


44 

44 
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AA 


CST2 


Ct.A5S 2 «ESIwUAUS AhO WEIGHTS 


** 

** 







«A 


CtRi:e^T ITfzRATION 



1 










** 


Cl-)»SS 2 


CLASS 2 


CLASS 2 

CLASS 2 



ANCLES 


CALCULATED 

9ESI0UALS 

WF IGHTS 

*♦ 

** 

0* 1663C 

03 

0* 1667E 

03 

0.518£E-01 

0.0 



C, lt69F 

03 

0*1668E 

03 

Q, 1307F- 00 

0.0 

«« 


o« lea^f: 

03 

Ool669F 

03 

-0.6677E-01 

0*0 

4* 


0. 16fl3E 

03 

O 4 1690E 

03 

-C.I741E 00 

0.0 

4* 


0*171 2E 

03 

O 4 171 IE 

03 

0.57S9E-01 

0.0 



04l7J3r 

03 

0 4 1 71 2F 

03 

0.1045E 00 

0.0 

«* 

*>)r 

0. 1 423?-: 

03 

Oa M24F 

03 

-0.97e5E-Ol 

0.0 


** 

0- 1447E 

03 

0 4 1 44 6 F 

03 

0.985SF-01 

0.0 

A* 


0« 1 470#= 

03 

O*1460E 

03 

0.1322E 00 

0.0 - 



0 * 1483e 

03 

0414B9F 

03 

-0.8S13S-01 

0.0 

** 


C* 15 09E: 

03 

0 4 1 51 IE 

03 

-C.25C0F 00 

0.0 

♦♦ 


• 0. 1 536H 

03 

0 . 1 E 3 3E 

03 

C.2233E 00 

0*0 

♦ A 


0« 1 5565" 

03 

0 , IE54E 

03 

0.1304F 00 

0.0 

A* 


0. 1 577t£ 

03 

0.1576E 

03 

C.1944E-01 

0«0 

44 


0. 1597E 

03 

0*1 599E 

05 

'0.10645 00 

0.0 

44 


041642E 

03 

0. 1«4 IF 

05 

0473a2E-01 

040 

44 


0. 168 3F 

03 

0 4 1 6B4E 

03 

-0.9634E-01 

0.0 

44 


04l730e 

03 

0.1 728C 

05 

0.1433F 00 

0.0 

44 

** 

0* 1638*= 

03 

0.16365 

03 

G.2027E 00 

0,0 

44 

4* 

0. 1 858F 

03 

0.1 esoe 

03 

-0.67285-01 

0.0 

44 

>* 

0,ia79F 

03 

0. 1 679F 

03 

0. 31 48S-01 

0,0 

- 44 

«* 

0. 1900c 

03 

0. 1 90 IF 

03 

-0.62345-01 

0.0 

A A 


0. 1944iF 

03 

0.1944E 

03 

-0.3021E-01 

o«o 

44 


0* 19B6F 

03 

0 4 1 98SF 

03 

-0*1526E 00 

0.0 

44 

+ ♦ 

0.2008F 

03 

0 *20095 

03 

-0.48195-01 

0.0 

44 

«* 

Q*203OF 

03 

0.2031F 

03 

-G. 90655-01 

0.0 

44 


0*21 1 7F 

03 

0.21165 

03 

-O.lOlOF 00 

0.0 

♦ 4 


0.213oe 

0 3 

0.2138E 

03 

a.5913E-01 

0.0 

44 

** 

0*2160E 

03 

0.2 J61£ 

03 

-C. 13675-01 

0.0 

44 


0*2163r 

03 

0 .2133E 

03 

C. 55025-01 

0.0 

44 


0*1430fi 

03 

0.1 429E 

03 

O.ai 2SE-01 

0.0 

44 


0* 1452E 

o3 

0,14515 

03 

C.2672F-01 

0. 0 

44 


0* 1472F 

03 

0.1 472H 

03 

-0.57165-01 

0.0 

44 

♦♦ 

0. 1A94M 

03 

0.14545 

03 

-Q.6572E-01 

0.0 

44 

4* 

0.1615E 

03 

0.1 5165 

03 
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DESCRIPTION 

400011450 

400011500 

OPTION 

I*A 

OCSOPT 

FLAG array For plotting OPTIONS 
=0, DO NOT PLOT 
=1, PLOT 

400011650 
400011600 
40001165C 
40001 1700 

FINISH 

!*♦ 

OCSOPT 

FLAG FOR terminating PLOT OPT 1 0N400O1 1 750 

table 400911800 

=0, DO NOT TERMINATE 400011650 

-1, TERMINATE 40GQ11900 

400011950 

FINALO 

I *4 

OCSOPT 

FLAG FOR DISPLAYING SUMMARY 
DISPLAY 

-0, DO NOT DISPLAY 
=1. DISPLAY 

400Q12COO 

*00012050 

400CI2100 

400012150 

*00012200 

lOUT 

1*4 

GCNl 

FORTRAN DEVICE UNIT FOR SPECI- 
FIED PRINTOUT 

*00012250 

400012300 

400012350 

NCLASJ 

144 

GCNt 

NUMBER OF CLASS 1 DATA TYPES 

400012400 

400012450 

NCLASZ 

144 

GCNt 

NUMBER OF CLASS 2 DATA TYPES 

400012500 


C-60 



c 





•00012550 

c 

NCDF 

1*4 

GCN! 

MAXIMUM NUMHEfi OF ITERATIONS 

•00012EOO 

c 





*00012650 

c 

MAXIT 

1*4 

GCNl 

MAXIMUM NUMHfcR OF ITERATIONS 

*00012670 

c 





*00012680 

c 

I URT 

1*4 

GCNl 

intermediate PRINTOUT LEVEL 

*00012700 

c 




INDICATOR ISES REFERENCES 1 & 2 

*00012750 

c 




FOR VARIOUS LEVELS) 

*00012800 

c 





*00012850 

c 

TiERO 

fl*4 

GCNl 

REFERENCE TIME 

*00012860 

c 





*00012370 

c 

IOC 

1*4 

GCNl 

RESIDUAL STORAGE INDICATOR 

*00012900 

r 




=0. DO NOT STCRF RESIDUALS 

•000129S0 

c 




=1, store RESIDUALS FOR DIS- 

*00013000 

c 




PLAY AND plotting 

*00013050 

c 





*00013100 

c 

I calc 


GCNl 

CALCULATED VALUES STORAGE INDI- 

*00013150 

c 




CATORS 

*00.0132 0 0 

c 




=□, DO NOT STORE CALCULATED 

•OOB13250 

c 




VALUES 

•00013300 

c 




=1, store CALCULATED VALUES 

*00013250 

c 




FOR DISPLAY 

*00013400 

c 





•00013450 

c. 

ICER 

1*4 

GCNl 

DERIVATIVE STORAGE FLAG 

•00013460 

c 




=0. DO NOT STORE 

•0001 3470 

c 




=1, STORE 

*00013480 

c 



• 


*00013490 

c 

SKULT 

R*4 

GCNl. 

RESIDUAL EDIT CRITERIA (THE 

*0001 3500 





WEIGHTS OF ANGLES WHOSE MAGNI- 

•00013550 

c 




TUDE OF residual IS GREATER 

*00013600 

c 




THAN SMULT*( AVERAGE OF RESID- 

•00013650 

c 




UAL MAGNITUOFS) IS SET TO THE 

*00013700 

c 




NEGATIVE OF THE RESICUAL 

*00013750 

c 





*00013600 

c 

IMP 

1*4 

GCNl 

TOTAL number of ELEMENTS IN THE 

*00013850 

c. 




state vectoridef ineo as 2*ncof 

*•*00013900 

c 




NUMQER OF BIASES) 

*00013950 

c 





•CQC14000 

c 

1 HHERB 

1*4 

GCNl 

currently not used 

*0001401 0 

c 





*00014020 

c 

I STEP 

1*4 

GCNl 

current ITERATICN INDICATOR 

*00014050 

c 





*00014100 

c 

I STOP 

1*4 

GCNl 

currently not used 

*00014110 

c 





00014120 

c 

IRFT 

1*4 

GCNl 

RETURN CODE 

*00014150 

c 




=0* PROCESS CONVERGED 

*00014200 

r. 




=1, MAXIT EXCEEDED. PROCESS 

*00014250 

c 




TERMINATED 

*00014300 

c 




-2, PROCESS OIVERCED. COR- 

*00014350 

c 




RECTION ELEMENT GREATER 

*00014400 

c 




THAN 360 DEGREES 

*00014450 

c 




=3, SINGULAR MATRIX 

*00014500 

c 




=4, NUMBER OF BIASES GREATER 

*00014550 

c 




THAN S 

*00014600 

c 




=3, NCOF OUT OF RANGE 

♦000146SO 

c 





*00614700 

c 

ISTAT 

1*4 

GCNl 

COVARI ANCe/CORRELATICN FLAG 

•00014710 

c 




=0. DO NOT COMPUTE 

*00014720 

c 




=1. COMPUTE 

*00014730 

c . 





*00014740 

c 

CCRMIN 

1*4 

GCNl 

DISPLAY INDICATOR FOR CLASS 1 

*00014750 

c 




DATA 

*00014800 

c 




=0, DO NOT DISPLAY 

•00014850 

c 




=1. DISPLAY 

*00614900 


•000*4550 


C-61 



c 

c 

c 

r 

C 

c 

c 

c 

c. 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


CORMAX I *A GCNR 


I OPEN M A SCON 


DATA transmission 

NAME READ/HKITE/CPOINT 

FTXXFOOl ttRITE 

GCONF.O CPC I NT 

DCCT CFOINT 

OCCZ CPOINT 


OISPLAT INDICATOR FOR CLASS P *OCeSSOOCt 
DATA *00015050 

=0, DU NOT DISPLAY *00015100 

=1, DISPLAY *00015150 

ACOOlSZOO 

GRAPHICS DEVICE INDICATOR *0001=250 

=0. NO GRAPHICS DEVICE ACTIVE AO0C1530O 
=1, MSAD GRAPHICS DEVICE *00015350 

active *00015400 

*00015 A50 
*00015500 
. '»OCOa^SSO 


DESCRIPTION AOOOlSeOO 

*00015650 

INTERMEDIATE PRINTCUT* »HFRE *00015700 

XX = IQUT *00015150 

•00015600 

DCCDNS INITIAL PAHAMET7.H C I SPL AY* OOOl 56 50 

*00015000 

CLASS 1 DATA DISPLAY *00015050 

*00016000 

CLASS 2 DATA DISPLAY *00016050 

*00016100 


OPTABl CPOINT OPTION TAeLE DISPLAY 

restricticns 

j_ the number of polynomial coefficients most be greater or 

F.QUAL TO I AND LESS THAN OR EQUAL TO * 

2- THE NLVBER OF BIASES OETCKMINEO, FOR BOTH CLASS 1 AND 
CLASS 2 DATA. MOST BE LESS THAN OR EQUAL TO 5 

3- ALL CALLING SEQUENCE ARRAYS ARE MSAD ALLOCATED, AND HENCE 
, IT IS OP TO THE USER TO ENSURE THE ALLOCATION SIZE OF 
WORK ARRAYS IS NOT EXCEEDED. 


REFERENCES 


1. L« R. SCHLEGEL, CONES AN ITERATIVE DIFFERENTIAL 
CORRECTION TECHNIQUE FOR ATTITUDE DETERMINATION 
OF A SPINNING SATELLITE, IBM FSO REPORT, 
CONTRACT NAS S-10022. MAY 1657 

2. SURVEY AND EVALUATION OF ATTITUDE DETERMINATION 
TECHNIQUES. IBM FSD REPORT TR-6a-8» CONTRACT 
NAS 5-10022, MAY 196S, PP‘. 6-lA TO 4-24 

3. RADIO astronomy EXPLORER ATTITUDE DETERMINATION 
SYSTEM IPAEAOS) , VOL III, SPIN AXIS ATTITUDE 
DETERMINATION PRDGRA M-D YCON , IBM FSD REPORT, 
CONTRACT NAS 5-10022, MARCH 1969 

A. SYSTFN/360 SCIENTIFIC SUBROUTINE PACKAGE, 

VERSION II, PROGRAMMER'S MANUAL, IBM FORM NO. 
H2Q-0205-2 

REVISIONS 

t. F. KNOOP (01 AUG 1969) - ORIGINAL COOING AND 
TESTING 

2. F. KNOOP (20 JAN 1970) - MODIFICATION TO CHECK 
FOR DIVERGENCE TO PREVENT 1HC254I ERRORS DUE TO 
ABSURDLY LARGE CORRECTION ELEMENTS 

3. F. KNDOP (20 JAN 1970) - REORDERING OF ERROR 
RETURN COOES INTO ORDER OF SEVERITY 


400C16150 
*00016200 
•00016250 
*00016300 
*00016350 
*00016400 
*00016450 
*00016500 
*00016550 
*00016600 
*00016650 
•00016700 
*00016750 
*00016600 
*00016650 
*00016900 
*00016930 
*00017000 
*00017050 
*00017100 
*00017150 
*00017200 
*00017230 
*00017300 
*00017350 
*00 01 7400 
*00017450 
•OQ017SOO 
*00017550 
*00017600 
*00017630 
•COOI7700 
*00017750 
*0001 7600 
*00017850 
*00017900 
*000179 SO 
*00016000 
*0001 6050 
*000181 00 
*00016150 
*00016200 
*00018250 
*00018300 


C-62 



c 

c 

c 

c 

c 

c 

c 

c 

t 

c 

c 

c 

c 

c 

c 

c 


4* 


5 • 


6 « 


F. KNQOP <20 FEE 1970J *• CQHPkCTE REVtSJON TO 
INCLUDE dihedral ANGLE DATA 

J. taMALEN (SUMMER 1972) - REVISION TO GCONES 
TO INCLUDE LOGIC FOR INTEft-ACTlVE GRAPHICS 

capabilities under the multi-satellite attitude 

DETERMINATION jSYSTEM* THESE REVISIONS INCLUDE 
ADDITION OF ARRAYS AND INSERTION OF CALLS TO 
the msao Routines^ 

L- FCAKES (13 JULY 19731 - REVISION TO CODE TO 
INCLUDE additional CALLS TO MSAO ROUTINES AND 
CHANGE OF LOGIC FOR RE INI T I AL Z Z AT ION OF OCCON5 


4^00916350 

#00916400 

*00016450 

*00016500 

*00916550 

*00016600 

*00016650 

*00016700 

*00016760 

*00016800 

*00916650 

*00016900 

*00016950 

*00919000 

*00019050 

*00619100 


ISN 0002 


I5N OOOi 


AISN OC04 

ISN 0005 
ISN 0006 
ISN 0CC7 
ISN occe 
tSN 0009 
ISN 0010 

ISN Qon 


c*** **«**« 4 ******* *********************************** A*******«**«*******000l 9150 

SUBROUTINE DCCONS < ALP, ALPBnD » ALPCUM *DEL, DELBND » DELCUM * ARGCUM t TiMEOOOl 9200 
1 1 »AXtSl *ANG1 #VkGHTl tlFRSTl »NT YPEl t B1 A5l « BBNDl ,RH05tl »RHOl *CALC1 • SC0000192 5C 
^►EFl .TIME2 .AXlsa* ANG2 , WGmTE * 1 Fft ST2 . NT YPE3 * B 1 As2 . eBND2,RM0ST2f RH02,C0001 9300 
3ALC2*SCCEF?.* A VGRHO^CQEF »0«M0SQ*CMNG, STUHl.STQRZtALPfi •CELR* ST YPE It SOOO 19350 
4T YPF.2 «BTYPF* RL • WORK »G WORKQ •GWORK4 t G*ORK5 *61 ICUM > OOOl 9400 

COMMQN/GCNl/ ICUT.NCLASI , NCLAS2 . NCOF t M AX 1 T f I *HT * TZERC , IQC t ICA lC» 00619450 

1 XDERtSMULT.NP. I WHERE * 1 ST EP » I STOP. IRET. ISTAT, 

2 CCHMI N tCDPMAX 

CQMMGN/STVEC T/0LDALP<4> tCLODEL (4 ) • OLCdSl <5>»ULCeS2(5)* 

1 NE*ACP(4) ,N£*D£L(4J .NEWBSKS) ,NEI#/BS2< 5 ) 

RFAL*4 NF.MALPfNENDELtNEWBSl iNEViSSa 

COMMON-'OCSOPT/ CPt IQN( 1 0 ) • F INI 5H . F IN ALD » IMESG( 3 1 
£NTEGER*4 OPT I ON t F INl SH » FI N ALO 
COMMON/MASCCM/ IDU«MY(24 )* lOP^N 
FiEAL*B STATl.STOPl 
CATA STOPl/*STCP */ 


DIMENSION ALPU ) .ALP5ND<1) . ALPCUMC 1 1 •DEL(1> tOeLeNOt I ) .OE lCUMI 1 1 • 
t ARGCUMd ) tTl MEl <2 > »AXlS10tl ) » ANGli 1 ) tMGHTl U ) * 

2 iFfisn (1 ) ,M YPEl (11 .81 ASK 1 KseNOK 1 ) tHHaSTl ( 3 ,1 > • 

3 HHCl t I J .CALCl (1 ) *SCQEF1 t NP , 1 ) , T I M E2 < I » , AX I S Z< 6 . 1 ) . 

4 ANC2( 1 ) I WGHTei S ) . 1FRST2( 1 > . NTVPE2< IK^lASSCl) .SEiNDaC 1 ) , 

-5 RHQST2(3 >1 ) .RMQ2(l > .CALC2( 1» . SCUEF2(NP,1 > » A VQRFO ( 2 • 1 ) « 

6 COEF f NP. NP ) tDRHOSQtNP ) ,CHNG( NP ) » STURl I NP 1 «STaR£( NP) t 

7 ALPRd ) .OELRd > .STYPEM l > ,STVPF2( I ) , BTYPEC 1 » .RL C 11 , w0HK( 1 ) » 

B AN0H(6) 


00019SOO 

000195SO 

CO919EO0 

00G19650 

O0C197OO 

00019750 

00019600 

00019650 

00919900 

00019950 

00920000 

00921800 

00021650 

00021900 

00021950 

00922000 

00022050 

00022100 

00922150 

OOC22200 


t SN 

0012 


OIMFhSION 01451(6) *aiAs2 1(6J«AK4)»DI(4>« 

RHOTl ( 5,6 ) »fihOT2 ( 5 » 

6) « 

OOOS22SO 




1 GWORKOd ) • G40RK5 ( 1 } «GW0RK4(1 ) 



O0C223OO 

ISN 

0 01 3 


RnAL*6 GWORKO.BllCUM \ 



00922350 

ISN 

0014 


INTEGER** aXYPE^tCORMlNtCORMAX 



00022400 

1 SN 

0015 


DATA TOTAL/* TCTL*/ *eUANK/« */.ANUM/* 

3»,* 

4 

• ,00022459 




!■ 5",* 6. ♦/ 



00922500 

I SN 

0016 


DATA 5TAT2/*STAT*/ 



00022550 

J SN 

0 017 


logical*! rl 



00022'600 

1 SN 

0016 


DIMENSION NAME(2tl3) 



0OC22650 

ISN 

0019 


REAL NAME 



00022700 

ISN 

0020 


DATA NAME / • ALP***HA DEL***TA l*t* 

ALP * » ■ hA 2* * * OEL* 

. 

00022750 




1 »TA 2**‘ ALP***HA 3«** DEL*.* 

TA 3' ALP* ♦•HA 4« 

« 

00922800 




3 • PEL*.«TA 3I'.*AS !*.• 

B I * , ■ AS 2* . • 31* 

.. 

00922850 




3 *AS 3*.» 6I'*'AS 4-i> Bl*.* 

AS 5* / ^ 


00922900 

ISM 

0021 


DATA RTOD, XEIAS / 57*29576. 9909999* / 



00022950 



.c 

EXTERNAL REFERENCES COFSUM, ELKINV, 

CHEC< 


00023000 



* r 




09023050 

ISN 

0 022 


IF <l*RTkGT.C) 4RITE (I0UTiS90) 



00023100 

ISN 

002* 


IF (1WRT*LT*2) GO TO 170 



00023150 



C 

«**•.* WRITE HEADER LINK AND AL.L INPUT NON-ARRAY ITiiMi 


00923200 

ISN 

0026 


ViRI TE t lOUT t 9 00 > NCLASl « NCLAS2 .TZERO • NCOF 

•, MAX IT , I WRT . lOUT 


00023250 



C 

writR initial ATTITUDE COEFFICIENTS ANC 

1 correction bounds 


00023300 

ISN 

00S7 


• PlTt U GUT. 910) (ALP( I > i ALPaNDl I ) .DEL< 1 ) 

• OELBNDC 1 )«1%1 »NCOF) 

00023350 



C 

WRITE INITIAL alAS ESTIMATES AND CORRECTION fiOUNCS 


00023400 

I SN 

0028 


IF (NCLAS1«LE*0) GO TO 11 0 



00023450 

ISN 

003C 


ITiTLF^l 



00023500 

ISN 

0031 


DO ICO 1^1. NCLASl 



00023550 

I SN 

.0072 


IF (elASl ( 1 ) *FG*XBl AS) GD TO lOO 



00023600 

ISN 

0034 


IF ( ITITLE*E C*1 > WRITE (IOUT.920) 



00023650 

ISN 

0036 


ITITlE=2 



00023700 

I SN 

0 037 


VkRITF. ( lOUT *940) 1 .61 ASK- X) . BBNDl ( I ) 



00023750 

I 5M 

0036 


loo CONTINUE 



00023800 

ISN 

0039 


110 continue 



00G23650 

ISN 

0040 


IF (NCLAS2.LE.0) GO TO 130 



00C23900 


C«63 



15NJ 

004 i 


ITITUE=1 


0CC2395O 

tSN 

004 a 


DO 120 Ifcl.NCLASa 


00024000 

ISN 

0044 


IF (6 IAS2( I ) .EO* xalAS 1 GO TO 120 


00024050 

ISN 

0046 


IF < ITITLE.E C.l) WRITE (IQUTt9aa> 


000241 00 

ISN 

0046 


ITITLE5=2 


00024150 

ISN 

0C4^ 


WRITE I lauT.940) I *U1A52(-I) *BQN02l I J 


Q0024200 

ISN 

0050 

lao 

CONTINUE 


00024250 

ISN 

OCf 1 

130 

CONTINUE 


00924300 

I SN 

0Q« a 


IF <1WRT«I.T*2} GO TO 170 


00024350 

! SN 

0054 


IF (NCLASl •LE«0) GQ TO 150 


00024400 

ISN 

0056 


00 140 Ifcl*NCLASl 


00G24450 

ISN 

0C57 


Jl=IFRSTl [I) 


00024500 

I SN 

oose 


NsnTYPSS < 1 > 


00024550 

ISN 

005? 


J2=JH-N-1 


000246Q0 

ISN 

0060 


WRITE <10UT»95Q) I«NfJl»J2 


0002465O 

ISN 

006 1 


IF < lWftT*GE.a.ANO*N.GT*0> WRITE <iaUT*970> 

( j.riKEi ( J) 

•< AXISI (K*J) 00024700 




1 tKs^l i3> tANGl ( J) «HGHT1 ( Jl Jl » J2> 


00024750 

ISN 

OOC 2 

140 

CONTINUE 


0OC2460O 

ISN 

0064 

150 

CONTINUE 


00024650 

ISN 

0065 


IF (NCLA92.Lr.»0 k GO TO 17Q 


QC024900 

ISN 

Q067 


DO 160 lt=l»NCLAS2 


OQ024950 

ISN 

0066 


J1=IFR5T2< I > 


00025000 

ISN 

0C64 


N=NTYPEa< 1 ) 


00Q2SC5O 

ISN 

0C7C 


42=Jl+N-l 


00025100 

I SN 

0071 


WRITE (1OUT.960) I«N«Jl«J2 


00025150 

1 SN 

0 07 2 


IF { IWftTfcGE. E-A nD*N-GT.O ) WRITE (l0UT.980> 

( J • T 1 ME2 ( J ) 

tlAXjS2lK*J|OOQ252O0 




t «Kst ,6J «ANG2{ J) iWCHTaiU) • J=J1 * J2) 


00025250 

ISN 

0074 

160 

CONTINUE 


OOC2S3O0 

I SN- 

0075 

170 

CONTINUE 


00025350 

ISN 

0076 


DO 160 lt=l«S 


OOC2540O 

ISN 

0077 

lao 

BTYPFI I )®0 


00025450 

Z5N 

0C76 


00 190 l•=1.13 


OOO25S00 

ISN 

0C7? 


STYPElt I >=BLANK 


00025550 

ISN 

OOBQ 


STYPC2I 1 J=ai.AKK 


OOC256QO 

ISN 

ocfiS 


STORIII }^0» 


0002S6S0 

ISN 

0C62 

190 

5TOR2U »*fO. 


00025700 

ISN 

0062 


N0NE=0 


00025750 

ISN 

0064 


NTwO=0 


00025600 



c 

STORE DATA FCR NSAO DISPLAY 


000256SO 



c COMPUTE THE NUMBER OF ANGLE BIASES TD BE 

DETERMINED 

00025900 

ISN 

006 5 


NLC^O 


00025950 

ISN 

QC€6 


NBI ASsD 


00026000 

ISN 

0087 


IF (NCt_ASI«LF.t>) GO TO 210 


OOQ26C50 

ISN 

0C69 


DO 200 Z>sl pNCLASl 


00026100 

1 SN 

0C9C 


NONE=NONEFNTYPEl ( I 1 


00026150 

ISN 

oost 


IF IfilASK I)*EQ.XBtASJ GO TO 200 


00026200 

ISN 

0092 


NBIASsNBl AS41 


00026250 

ISN 

0094 


NLC=2*NBIAS 


00026300 

ISN 

0095 


STORKNLC-l) =eiA51 U) 


00026350 

ISN 

0096 


STORl (NLO=BBNDH 1) 


000264Q0 

1 SN 

0097 


BTYPEII i*=lO^I 


000264SO 

I SN 

0096 

200 

CONTINUE 


00626500 

ISN 

0099 

210 

CONTINUE 


00026550 

I SN 

020C 


IF (NCLAS2.LE*0> GQ to 230 


O00266Q0 

ISN 

0102 


00 220 Z^1«NCCAS2 


00026650 

ISN 

0102 


NTwa=NTwa+NTYFF2(I J 


00026700 

ISN 

01C4 


IF <BIAS2( I> .EC.XelAS) GO TO 220 


00026750 

ISN 

0106 


N6I A5»NB1AS+1 


00926600 

ISN 

0107 


NLC=2*N8IAS 


00026650 

ISN 

01C6 


STORl (NUC-l > =B| AS2 1 1) 


00026900 

ISN 

0109 


STORlCNi_C>=BEN02t t ) 


00026950 

ISN 

one 


0TYPEU >te20+I 


OOC27O0O 

ISN 

0111 

220 

CONTINUE 


00927C50 

ISN 

0112 

230 

CONTINUE 


00027100 



C *♦♦♦♦ CHECK FOR XKVALIO INPUT 


00027150 

ISN 

0112 


IF (NCOF«GE«1»ANO*NCOF*LE*4) GQ TO 240 


OOQ2720O 

ISN 

Oil 5 


lRETs=3 


00C27250 

ISN 

0116 


GO TO 760 


00027300 

tSN 

0117 

24 0 

IF (NBIAS.LE.S) GO TO 250 


00027350 

15N 

0119 


IRET=4 


00027400 

ISN 

0120 


GO TO 780 


00027450 

ISN 

0121 

250 

CONTINUE 


00027SOO 



c I44e**4r CC^'PUTE SOME CONSTANTS FOR THg SUMMATION 


00027550 

ISN 

0127 


N2=NCDF-*-NC0F 


00027600 

ISN 

0122 


N3=N2fNSIA5 


00027650 

X SN 

0124 


N4-N2+1 


00027700 

ISN 

0125 


N5=N3Fl 


00027750 


C-64 



15N 

1SN 

ISN 

ISN 
ISN 
[SN 
ISN 
ISN 
ISN 
ISN 
ISN 
ISN 
ISN 
T5N 
1 SN 
iSN 
ISN 
15N 
ISN 
ISN 
ISN 
ISN 
ISN 
1 SN 
ISN 

isn' 

I 3N 
ISN 
ISN 
ISN 
ISN 
I SN 
ISN 
ISN 
1 SN 

ISN 
I SN 
I SN 
ISN 
ISN 
.1 SN 

ISN 
I SN 
ISN 
ISN 
ISN 
ISN 
ISN 
1 SN 
1 SN 
ISN 
ISN 

ISN 
ISN 
ISN 
I SN 
ISN 
ISN 
ISN 
ISN 
ISN 

ISN 


ISN 
ISN 
I SN 
ISN 
ISN 
ISN 
ISN 


/ 


012€ 

181=9 


00027800 

0127 

l82=iai*NelA5-l 


00C2765O 


C CALL PTSIZE FGfl ARRYS TO 65 DISPLAY6D. 


00027900 

0128 

CALL GTSI Ze <G*QRK0« IFLLO » I ALLO * CWORK5« IFLL5* 1ALLS« GmCRK4 « 

IFCL4, 

1 AO0O279S0 


1LL4) 


00028000 

OSZS 

CALL PTSize (N0IAS.6TYPE) 


00G28050 

CISC 

CALL PTSXZE <NLC*STORt) 


00028100 

0131 

CALL PTSI ZH C2Qf ALPCUN*D£LCUM| ARGCUM) 


00028130 

0132 

CALC PTSI ze ( ACOF • ALP .DEL , ALPBND • QELBND > 


00028200 

0132 

CALL PTS^ZF (KONEtTjMEi • ANCI 1 W6HT1 ) 


0002B2SO 

0134 

CALL PTSIZE (^H»a.TIMG2.AN(J2iWGMT2) 


00C2630O 

0135 

NN3=34N0NE 


00028330 

013C 

CALL PTSIZE INN3.AAIS1I 


00028400 

0137 

KN6=6*NT!MQ 


00026430 

0138 

CALL PTSIZE (NN6.AXIS2I 


00026300 

013S 

NP2=NP*NP 


00026550 

014C 

CALL PTSIZE (NP2,COEF) 


00026600 

C141 

CALL PTSIZE {NCLASl »S1AS1«B8ND1 ) 


00026630 

014 2 

CALL PTSiZF (NCLASa.'dl ASa«a8N02| 


00028700 

0143 

260 ItiHERE^O 


00028730. 

01 44 

IF (NCLASl •ce*0J GO TO 280 


00026800 

014€ . 

DO 270 Ifcjl .NCLASl 


00026630 

0147 

J1=IFPST1 t 1 ) 


00026900 

0148 

N=NTYPEUI) 


00026^50 

Q14S 

J2=JI+N-1 


00029000 

015C 

00 270 K«J1.J2 


00029030 

0181 

AGHTl <K.>*=A0S(»GHT1 (K ) > 


00029100 

QSS2 

270 CONTINUE 


00C29I5O 

0153 

260 IF (NCLAS2.LE.0) GO TO 300 


00029200 

0155 

DO 290 1^1 ,NCLAS2 


00029230 

0156 

J1=IFRST2( I ) 


00029300 

0157 

N=NTYPE2( I ) 


00029350 

0158 

J2=JH-N-1. 


□0G29400 

015C 

DO 290 Kfe Ji ■ J2 


00G294S0 

0160 

AGHT2(KJ^ABSC !HGrtT2lK) ) 


00029500 

oiei 

290 CONTINUE 


Q0029S50 

oica 

300 CONTI NUF 


00029600 


C DISPLAY ALL INPUT DATA AND CONTfiCL PARAMTERS AT •GCGNEO* 


00029630 

0163 

ONP«NP 


0OC297OO 

.0164 

cncof^ncof 


00029750 

0165 

ONCLSl=NCLASl 


00029800 

0166 

CNCLS?=NCLAS2 


00029650 

0167 

CALL CMECN (•GCONEQM 


000299DO 

0168 

IF lONCOF. NE.NCOF. CH.ONCLSl .NE.NCLASl •QR.ONCLS2* NE. NCLAS2 ) 

GO TO 

100029950 


170 


OGC30000 

0i7C 

NBS=C 


CCC3OO50 

0171 

IF <NCLAS1«LE.0J go to 3Z0 


‘ 00030100 

0173 

00 310 1^1 .NCLASl 


OOD301$0 

0174 

IF. leiASl ( I > .EQ.XBIAS] GO TO 3j0 


00030200 

0176 

NB5=NDS+1 


00030250 

0177 

310 CONTINUE 


00030300 

0176 

320 IF (KCLA52»LE*0i GO TO 340 ' ' 


00020350 

0180 

CD 330 I^l *NCLAS2 


. OOG30400 

oies 

IF <B1AS2( I) «EQ*XB1 ASJ GO TO 330 


. 00030450 

0163 

N8S=NBS4l 


00030500 

0164 

330 CONTINUE 


00030550 

oie® 

340 CONTINUE 


000306QC 

0.166 

IF (N0S+24NCCF.NE«ONP) GO TO 170 


QD030650 

01B6 

IF IIOC.EO.l) CALL PTSIZE (NONE»RHOl> 


00030700 

C14C 

IF (ICALC*FO«l) CALL PTSIZE (NGNE.CALCl) 


00030750 

01 C2 

IF ( IDC.EO.I J CALL PTSiZE {NTW0.»HO2> 


00030800 

C194 

IF (ICALC«^0*n CALL PTSIZE (NTWC.CALC2J 


00030650 

0196 

IF (CCRMIN*EC«1) call check <*DCCll*> 


00Q30900 

0198 

IF. <CQRMAX*EC*l> CALL CHECK <«DCC22*) 


00030950 

020C 

call PTSIZE ClTtSTORl) 


00031000 


C TAF*# INITIALIZE ITERATION COUNTER 


00031 050 . 

oaol 

ISTFF=0 


00031 IQO 


C 


00031150 


c BEGIN PROCESSING FOR THIS ITERATION 


00031200 


r 


00031250 

0201 

DO 350 Ifcl .NCLASl 


00031300 

0203 , 

350 6IASI ( n=01ASt( I 1 


00031350 

0204 

00 360 Ifcl.NCLAS2 


00031400 

0205 

360 S1AS2! U J = 8I A£2( 1 I 


00031450 

02C€ 

00 370 I=1*NCCF 


00031500 

0207 

AI(l)=ALPtl) 


OOQ31 5S0 

0208 

370 Oil I )=OFLt I J 


00031600 


C-65 



ISN 

C70S 


CO 3€0 T*S t4 


00031650 

ISN 

07|iC 


CLPACPI I >=0* 


00031700 

ISN 

a?U 


GLDr>6L.< 1 ) = 0. 


00Q3875O 

ISN 

0712 


OLDBSI ( I >«0» 


00G31 600 

ISN 

0 212 


aLOBS2( I l=0> 


00031650 

t SN 

0?\A 


NFWALPI n^o* 


00031900 

ISN 

021S 


NrtfOELt I >=0. 


000319S0 

ISN 

Q?\e 


NCWBSl ( 1 )=0 d 


00C320OO 

! SN 

0717 


380 nTikBS/?! n = o* 


00032050 

ISN 

021 a 


OLOBS1(S»=0. 


O0C32l00 

ISN 

021^ 


CL0BS2I5)=0« 


00032150 

ISN 

02?0 


NTHBSI < S) «0« 


00032200 

ISN 

02S1 


NF*ES2(5)=sO. 


00032250 

1 SN 

c?7fi 


390 CONTINUE 


00032300 

ISN 

0222 


IGS-O 


00032350 

ISN 

0224 


CAUL MESAGE {**77 THE SUBPROGRAM DCCDNS 

IS Non IN OReRATION 

O003ZA0O 




l*=* .O.O .1 1 


00Q32450 

ISN 

022S 


CALC PTSIZC (NP*0RHGSC) 


00032500 

ISN 

02Zt 


ISTEP=£STEP<-1 


00032SSO 



C 

77777 CONVERT ATTITUDE COEFFICIENTS TO RADIANS 


O0O326QO 

ISN 

0227 


CO 4-QO l>=l ,NCCF 


00032650 

ISN 

0228 


ALPK<I >=ALP( I )/RTOD 


00032700 

1 SN 

0 229 


DEuRtI >-DEC( I )/RTOO 


00032790 

t SN 

0220 


400 CONTINUE 


00032600 



c 

*7777 ^F.HO OUT MATRIX OF CoeFFICIENTS 


00032650 

ISN 

0231 


DO 420 1^1 «N3 


00032900 

ISN 

0272 


CO 410 Jtel .N? 


00Q32SS0 

I SN 

0 233 


COEFC J,I)^0*0 


00033000 

ISN 

0 724 


410 CONTINUE 


00033050 

I SN 

0235 


QRHOSQI 1 )s0« 0 


00033100 

ISN 

023C 


420 CONTINUE 


00033150 

ISN 

0237 


IBIAE-N2 


00033200 



c 



00033250 



c 

7777* BEGIN LOOP TO MAKE ALL SUMMATIONS FOR CLASS 

1 CATA (CONF angles )OOC33300 



c 



00033350 

ISN 

0228 


IF <NCLAS1.LE.0I GO TO 440 


00033400 

ISN 

0240 


no *3 q ii=i .ncj-asj 


00033450 



c 

77777 ZERO OUT RESIDUAL SUMMATION VARIABLES 


00G13&O0 

ISN 

0S4I 


RHOSTl <1 • 1 )>0*0 


00033550 

ISN 

0 24 2 


fiHOSTl <2.1 J^O.O 


00033600 

ISN 

0243 


RHOSTlO.l ) = 0«.0 


00033650 

ISN 

0244 


J1=IFRST1<I) 


00033700 

ISN 

0 245 


N=NTTPE1 < I ) 


00033750 

ISN 

024£ 


IF <N.LE.O) GO TO 430 


00033800 

ISN 

0248 


IF f eiASI < II .NE.XblAS) I 61 AS^ieiAS-*! 


00033650 



c 

77777 CALL COFSUM TO COMPUTE AND SUM COEFFICIENTS 

FOR THIS TYPE OF 

00033900 



c 

77777 CLASS 1 DATA 


00033950 



c« 



.00034C00 

I SN 

0750 


CALL COF5M < TIMEI • AXI51 <1 ■ J1 ^ • ANGl < J1 ) • WGHTK Jl ) «N .1 « 3f ALPR.OELR. 

800034050 




1 :AS1 ( I 1 .IBIAS.COBF .DRHOSCI.FIHOSTKI ,1 ).RH01 ■ CALC t • SCOEFl < J 1 ) 

00034100 






.00-03A1S0 

ISN 

0251 


430 CONTINUE 


00C342OO 

ISN 

0252 


440 CONTINUE 


OO0342SO 



c 



00034300 



c 

neOIN LOOP TO hake all summations for class 

2 CATA (OHEU ANGLES I00034 350 



c 



00034400 

ISN 

0 25 3 


IF <NCLAS2.UE.0> GO TO 460 


00034450 

ISN 

0255 


00 450 1^1 .NCLAS2 


00034500 



c 

77777 Z£RO OUT RESIOuAL SUMMATION VARIABLES 


00634550 

ISN 

0255 


RH0ST2U »1 ) = 0*0 


00034600 

ISN 

0257 


RH0ST2C2.1 )^0.0 


000346S0 

ISN 

0 258 


RH0ST?.<3,1 1 = 0.0 


00034700 

ISN 

0254 


J1=IFRST2JI) 


00034750 

ISN 

0260 


N=NTyPE2CI) 


00034600 

ISN 

0251 


IF (N.LF.O) GC TO 450 


00034650 

ISN 

0263 


IF <B1AS2< 11 .NE.XBIAS) I BI A I Bl ASTI 


00034900 



c 

77777 CALL CGFSUM TO COMPUTE AND SUM COEFFICIENTS 

FOR THIS TYPE OF 

00034950 



c 

77777 CLASS 2 DATA 


OOQ3SQOO 



c. 



•00035050 

ISN 

026S 


call COPSM (TImE2» AAISZU.UI ) .AHG2U1 i « MGHT2(J1 ) .N« £. 6» ALPR »0ELR» 

B00035100 




1IAS2< II .IBIAStCOEF ,DRHOSQi RH0ST2 ( 1 ,[ 1 cRH02.CALC2.SC0EF2.Ul I 

00035150 



c, 



ISN 

0P6C 


450 CONTINUE 


00035250 

ISN 

0267 


460 continue 


00035300 



c 

77777 COPSUM computes ONLY DIAGONAL AND UPPER RIGHT OPF-DIAGONAL 

0003S350 



c 

77777 ELEMENTS OF THE COEFFICIENT MATRIX BECAUSE 

IT IS A SYMMETRIC 

00035400 



c 

77777 matrix 


O003945O 


C-66 





C 

COMPLETE LChER LEFT OFF-“D I AGON AL ELEMENTS OF SYMMETRIC MATRI<A 

00035500 



c 

■ FOH PRINTED OUTPUT AND DISPLAY PURPOSES. 

O093S5S0 

ISN 

os6e 


DO A70 i«=a.Na 

OOC3560G 

ISN 

0269 


N = I-l 

00035650 

ISN 

0P7C 


DO 470 «N 

00035700 

ISN 

0?71 


CQEFII .J)=COEF(J.I 1 

0003S7SO 

ISN 

0272 


*70 continue 

00035800 

ISN 

0273 


IF (IMRT.LT.IO) SO TO 490 

00G35850 



2 

**•«« KfilTE COEFFICIENTS OF SIMULTANEOUS EQUATIONS 

00035900 

!SN 

027S 


MRJTE <IOUT,990) 

00025950 

ISN 

0276 


DO *80 Itl.N3 

0Q036Q00 

ISN 

0277 


- »RITE UOUT.IOOO) tCOEFU ,UI . J=1 .N3J .ORMCSQt I » 

00926C50 

ISN 

0?7€ 


*80 CONTINUE 

00036100 

15M 

C279 


490 CONTINUE 

00036150 



c 

***«« CALL leM SSF ROUTINE Ml NV TO INVERT COEF MATRIX 

00036200 



c< 


..0003<SSO 

ISN 

0260 


I mhERF.«1 

00036300 



c 

DISPLAY COEFFICIENT MATRIX. 

00036350 



Cl 


•«0003€400 



c 

CALL SYMMETRIC MATRIX iNVEfiTER- 

00036450 

ISN 

0261 


CALL BLXINV (COEF . I »N3 . NP.CET . lERR, STQRl . ST0R2 . HL I 

COO36S00 

ISN 

0282 


IF (DET.NF-.O.O) 50 TO SOO 

00036550 

X 5N 

0284 


IRET^S 

0003660C 

I SN 

026S 


GO TO 780 

00036650 

ISN 

0286 


500 CONTINUE 

0CQ367Q0 




«***« MULTIPLY MATRIX INVERSE (COVARIANCE MATRIX! BY VECTOR OF RHO 

000 36750 



c 

SQUARED DERIVATIVES TO OBTAIN ATTITUDE STATE CORRECTIONS 

00036600 

1 SN 

0207 


DO 510 Ifcl ,N3 

00036860 

ISN 

0286 


CHNGd >«0*0 

00036900 

ISN 

0289 


DO 510 tN3 

00036950 

ISN 

Q29C 


CHNCn »=CHNG( I > .COEF ( I p J ) 4DRH0SQ ( J 1 

00C37000 

ISN 

0291 


SI 0 CONTINUE 

00037050 



c 

USE STORl AND STORE FOR MSAD DISPLAYS. 

OOC371QO 

ISN 

0 29 2 


DO 520 l±=l .1 3 

00037150 

I SN 

Q29Z 


STORl m *o. 

00037200 

ISN 

0294 


520 £T0R2(I l«0* 

OQ03T250 

ISN 

0?95 


00 530 I^liNCCF 

00037300 

ISN 

0296 


STORl ( a*t-ll=CHNG(2*I-l 1 

0Q0373S0 

ISN 

0 29 7 


530 STORl (3*1 1 =CHNG( E* I » 

00C3740O 

ISN 

C298 


OG 5*0 I=1,NB14S 

00037450 

I SN 

0299 


5*0 STORl (3*I-a)'.CJiNG(?.*NCDFtII 

O0Q375O0 

ISN 

0300 


NSTafil = 9.*NCOF*MAXO(NCOF,NBl AS)+l 

00037550 

ISN 

0301 


CALL PTSIZF, (NSTORl . STORl J 

00637600 

ISN 

0302 


IF (ISTOP.Ne.O) GO TO 600 

0C6376S0 



c 

SET INOICATCR TO 'CONVERGEr?' ^ 

00037700 

ISN 

0704 


1RET=0 

00037750 

ISN 

03CS 


DO 550 I*sl*NCCF 

00037800 



c 

***ij|p« CHECK FOR NCN-CONVERGENCF 

00037650 

I SN 

0 30 6 


IF (AaS(CHNG(2*I-l n.GT. AlPBNP( I ) ) 1BET=1 

00C37900 

ISN 

0308 


IF (ABS(CHn'g(E*I ) ) .GT.OSLBNOI 1 1 1 IRET = l 

00637950 



c 

CHECK FDR DIVERGENCE 

00638000 

I SN 

031.0 


IF < ABS(CHNG(E* 1*1 > ) .LE.360.0.0R. ABS(CHNC( a*I> ) .lE.360. 0) GO TO 

5500638050 




1 0 

(!oo3eloo 

ISN 

031 £ 


IRET=2 

00636150 

ISN 

0312 


CO TO 780 

00C38200 

ISN 

0314 


550 CONTINUE 

00038250 



c 

CHECK FOR divergence OR CONVERGENCE OF BIAS ELEMENTS 

00036300 

ISN 



IF (NBIAS.LE.'o! go to 590 

00038350 

I 5N 

0:17 


K-N2 

00030400 

ISN 

0-71 6 


IF (NCLASl.LE.OJ GO TO 570 

00038*80 

ISN 

0320 


DO seo 1«1,NCLAS1 

00636500 

ISN 

O’Sl 


IF (BIASl ( 1 ) .EQ.XBIAS) GO TO 560 

00036550 

ISN 

0723 


K.=K*1 

0QC38600 

1 SN 

0324 


IF ( AOS(CHNG(K > ) .GT.BBNOl ( I ! ! IRET=1 

00036650 

I SN 

0 72 6 


IF (ABSICHNG(K>).LE.360. > CO TO 560 

OOC367O0 

1 SN 

0326 


IRFT*Z 

00036750 

ISN 

0329 


GO TO 780 

0QC36600 

ISN 

033C 


560 CONTINUF 

00038650 

ISN 

0331 


570 CONTINUE? 

OC038900 

1 SN 

0332 


IF (NCLAS2.LE.0) GO TO 590 

0CC38950 

ISN 

0 334 


DO seo iiii.NCLAsa 

00039000 

ISN 

0335 


IF (B1AS2(I).E0.XBIAS) GO TO SSO 

0CC39050 

ISN 

0337 


K-KA-l 

Q00391 OQ 

ISN 

0338 


IF (ABS(CMNG(K) ) .GT.BBNDa( I » ) IRET-1 

0003915Q 

1 SN 

0?4C 


IF (AaS(CHNG(K) ) ,LE.36a. » GO TO 580 

00039200 

I SN 

034 2 


IRF.T=? 

OQ0392S0 

I SN 

0 343 


GO TC 730 

00639300 


C-67 



I SN 

0344 


580 CONTINUE 

00029360 

ISN 

03A£ 


S90 CONTINUE 

000.394 a Q 

ISN 

OJJit 


600 CONTINUE 

00039450 

ISN 

03A7 


JPRh|t=l 

OOC3950O 

I SN 

o.?4e 


IF (llkftT*LT«4> IPRNT=0 

00039550 



C 

IF < IPRNT.EO* O.ANO* ISTAT.NE.l ) GC TO 660 

0OC39600 



c 

COMPUTE THE CCVARI ANCE/CURRELAT I CN MATRIX* 

0QG3966C 

1 SN 

0350 


N33^N3-l 

0C039700 

I SN 

03SI 


no 6J0 Ifcl *N23 

OOC39750 

r 5N 

035 3 


1I=I+J 

O0Q39600 

1 SN 

035 3 


no 61 0 J*:I I . N3 

00039650 

ISN 

0 354 


5J. 0 COFF 0» I )=C05F(0,I ) /SORT ( ABS ( CQFF I It I )WCGEF( J* J ) i> 

00039900 

ISN 

03S5 


no 620 !=l ,39 

00039950 

I SN 

035€ 


620 HitORKlIMO. 

OOC4CGOO 



c 

STORE DATA FCR MSAD DISPLAYS IN ARRAYS STYPE AND 40RK. 

00040050 



c 


0OC4O10O 



c 

COMPUTE AND PRINTOUT STATISTICS OF RESIDUALS 

00040150 



c 


00040200 



c 

STATISTICS FOR CLASS 1 TYPES 

00040250 

I SN 

0357 


4T1=0*0 

00040300 

ISN 

035£ 


3TA1=0*0 

00040350 

I SN 

025S 


STDl^O.O 

00040400 

ISN 

0 36 0 


IF (NCLASleLE.OJ GO TO 640 

00040450 

ISN 



NUM=NCLASt +NCLA52T3 

00040500 

ISN 

0363 


CALL PTSI2E t NUM, ST YPE J , ST YPE2 > 

00040550 

I SN 

0 36 4 


NUM=3ANUM 

00040600 

ISN 

0 36 5 


CALL PTSl/E iNUMtidCRK) 

00040650 

I SN 

0 36 6 


no 630 I-l tNCLASl 

00040700 

J SN 

0367 


STYPFJ < 1 ).= 4NLV(1 ) 

00040750 

ISN 

0366 


STVPE?.< I )*ANLM I J 

00Q4C8O0 

ISN 

C36S 


Vk=^RH0STl(3tl > 

00040650 

ISN 

G37C 


IF <tt*LEi»Q,D) Go TO 630 

QQ040900 

ISN 

0375 


S)=RhOST1 (1*1 }/N 

00040950 

ISN 

0273 


S2-SQRTIAMAXHUM0ST& { 2 . I J/W-Sl 4S 1 1 0. » ) 

00041000 

ISN 

0 374 


RHOTl (4.1 >=SS 

00Q4I050 

1 SN 

037 5 


RHQTl (5.1 )=S2 

00641 lOQ 

ISN 

0 37 6 


i»ORK( 3 Ai-2) = s1 

00041150 

I SN 

0377 


toGRK(34l-l)=S? 

00041200 

! SN 

0376 


MaRK(34I )sw 

0004125U 

1 SN 

0 37? 


IfcTl^ATl+W 

0CC41300 

I SN 

G3ec 


STAI = STAI+RHCST1U ,1) 

00041350 

ISN 

03es 


STBl=ST£il +RHGSTI (2,1) 

00041400 

ISN 

0382 


630 CONTINUE 

□0041450 

I SN 

0363 


IF (WTI.LE.0.0) GO TO 640 

OOC4ISOO 

1 SN 

0 365 


£1=STA1/wT1 

00041550 

ISN 

0386 


£2=SCRT(AMAXl(STBI/y»Tl*-Sl*Sl ,0« ) J 

0004160U 

1 SN 

036? 


»0RK(34NCLA51*l)=Sl 

00041650 

ISN 

0 38 6 


1ftORK(3*NCLA5l+P)=SZ 

00641700 

iSN 

Q3e<i 


wORK( 34NCLASIT3 )=MT1 

00041750 

ISN 

0290 


STYPEl (NCLASl+i >=ANUM( 1) 

00041800 

I SN 

C3<?l 


STYPE2(NCLA51*-1 )=T0TAL 

00041650 

I SN 

0395 


640 CONTINUE 

00641900 



c 

STATISTICS FOR CLASS ? TYPES 

00041950 

ISN 

C393 


l*T2=0*0 

OOC42000 

ISN 

0394 


STA2sO«0 

00042C50 

ISN 

0395 


5X62=0.0 

00042100 

ISN 

0 39 6 


IF INCLA32.LE.0) GC TO 660 

00042150 

ISN 

0398 


DO 650 Itel tNCLASa 

00042200 

I SN 

C3S9 


STYPEl (NCLASi+l + I » =ANUM( 2> 

00042250 

ISN 

040C 


STYPE2(NCLASl+l+l )^ANUM< I ) 

00042300 

ISN 

040 % 


MsRHQST2<3.I ) 

00042350 

ISN 

0402 


IF (1n«LR*0*0I go to 650 

00042400 

I SN 

0404 


£1=HH0ST2(1 , J >/W 

00042450 

! SN 

04CS 


S2=^SQRT(AMAX1 (RHCST2 (2.1 )/W-Sl*Sl . 0. ) ) 

00042500 

I SN 

0406 


RH0T2(4,l )=S1 

OO4I42SS0 

ISN 

0407 


RM0T2(5tl >=S2 

00042600 

ISN 

0406 


k0RK(3A(NCLASlA^l^I >-2>-Sl 

00042650 

T SN 

0409 


ADRKlStlNCLASl Tl-f I )-l) = S2 

00042700 

ISN 

0410 


hORK<3*<NCLA£JTlTl >)=W 

00042750 

ISN 

041 % 


AT2=kT24-w 

0DC426Q0 

ISN 

0412 


STA2=STA2frRHCST2 ( 1 . I > 

0O0426S0 

ISN 

041- 


ST&2 = ST82*-RMCST2(2»l > 

00042900 

ISN 

0414 


650 CONTINUE 

000 4 2950 

ISN 

0415 


IF (kT2*L£«0*0> GO TO 660 

0OC43OO0 

1 SN 

041 7 


S1=S7A2/)KT2 

00043050 

1 SN 

0416 


52=SCRT|AMAXl(S7a2/WT2-Sl*Sl «0.J ) 

00643100 

ISN 

0419 


MORK(3«(NCLASl4'NCLAS2)'f4) -SI 

00043150 
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15N 

042C 

MaRK<34< NCLASl «>NCLAS2 2 


00043200 

ZSN 

042 S 

40RK( 341NCLASI+NCl.AS?> + 6>=lilT2 


00043250 

ISN 

042? 

660 CONTINUE 


00043300 

ISH 

0423 

STYPEHNClAS1*NClAS 2+2 )s=ANiJMC2) 


•00043350 

ISN 

0424 

STYPE2INCLAS14NCCAS2+2|=TQTAL 


00043400 



c «♦**« combinSq tctai« statistics 


0D043450 

ISN 

042S 

STYPEl<NCCASJ+NCLAS2+3>=rOTAL 


00C43500 

ZSN 

OA 2 i 

STYPe,2.(NCLASi*NCLAS2 + 3 l»STAT2 


00043550 

ISN 

C427 

IF GO TC 670 


OOC4360C 

ZSN 

0429 



00043650 

ISN 

0430 

Sl«(STAl*STA2)/^ 


00043700 

ZSN 

043 1 

S?.*SQPT(AMAX1 ( (STBl+STS? >/Ki-SJ*S1.0* ) ) 


00043750 

ISN 

0422 

»ORKC3*<NCUASl FNCLAS2 >+7 ) *Sl 


00C43e00 

ISN 

0422 

taORK (34<NCI-AS1 «>NCLAS2 } 4-a I«S2 


00043650 

ISN 

0434 

WORKOACNCLASI <'NCLAS2> + 9)=lif 


0OC439O0 

ISN 

043£ 

670 IF (lPnNT«£Q*0> GO TO 710 


C0043950 



C **♦*♦ WRITE COVARIANCE ELEMENTS 


00044000 

ISN 

0437 

IF (IMBlAS.UE.a) »RITg tIOUT.1060) < NAM£( 1 > 1) . NAME ( 2. 1 > . I ^ 1 .N2 1 OOOAAQSO 

ZSN 

0439 

IF INBIAS.GT.O) WRITE <IQUT,J060) < N AME< 1 . I J . NAME! 2 . I > , 1- 1 .N2> , ( NAOO BAA 1 00 



1ME;(I .1) «NAH6 (2«l }* IS2) 


000441SA> 

ISN 

0441 

CQ 660 1^1»n2 


O0C442OO 

ISN 

0442 

!I = I 


00044250 

I SN 

044 3 

IF <I«GT«N2> IIaI-N24“6 


00C44300 

ISN 

044S 

6S0 kRITE IIQUT.1070) NAME C II < I 1 ) ♦ NAME( 2 » II 

) 

. (COEFl I *3) t J-1 * N3) 0 0044 350 

I SN 

Q44( 

IF '<NCLASI*LE*0) GO TO 690 


000444U0 

ISN 

G44E 

4RITE (IQUTtlO&a) 


00044450 

ISN 

0449 

4ft I Tt ( lOUT* IJOOi Cl . WORK( 3*1-21 *IKaHKC 

3*1-1) « WORK! 3*1 )* 1=1 *NCLAS1 100044500 

ISN 

0450 

WRITE (lOUT.lMO) WGRK(34NCLASlFl > » WQH 

K(34NCLAS1>2) *WQftK(34NCLASl *00044550 



13 » 


OOC446O0 

ISN 

0451 

690 IF (NCLAS2«LE«0 > GO TC 700 


00044650 

ISN 

0453 

WRITE (IOUT*J090> 


00044700 

ISN 

0454 

WRITE (lOUT.llOO) ( I *W0RKC3*NCLAS1 +1 +3* 

1 ) . MURKt 34NCLASI +24-3*1 ) » MORO 0044750 



1K(3*NCLASI+3T34I > • I=l #NC uAS2> 


□0044600 

ISN 

0452 

WRITE < lOUT, i,110> l*CRK(34{NCLA«l*NCLA5 

.2 

>+4>*W0RK(34( NCLASI+NCLAS 2 >00044650 



,1+SJ «M0RK(3*CNCLAS1 ♦NCLA52>T6) 


00044900 

ISN 

0456 

• RITE (IQUT,U20> WORK (3*< NCUASl tNCLAS2 

) +7 i .WORK ( 3*< NCLAS 1+NCLAS 2)00044950 



1 + aj 


00045000 

ISN 

0457 

700 CONTINUE 


00045050 

1 SN 

045« 

710 CONT I Nue 


00045100 

ISN 

0459 

IWHFRE=2 


00O4SS50 

I SN 

C4€C 

CALL CHECK (*GCONE2M 


00046200 



c ****J)I IF PROCESS HAS ENOED JUMP OUT CF CORRECTION LOOP OOOAS250 



c UPDATE attitude STATE 


00Q4S100 

ISN 

046 1 

DO 720 It! *13 


00046350 

ISN 

04 5 2 

720 STOR2< I )t0« 


COC45400 

ISN 

04^3 

NB=3*NC0F+N9TA5 


00045450 

ISN 

046 • 

• Nb-MIN0<NB.13) 


00C45 SOQ 

ISN 

'0466 

CALL PTSfze <N0*STQR?.) 


00045550 

ISN 

0466 

DO 730 ItliNCCF 


oocAseoo 

ISN 

0467 

STOR2C 241-1) =ALP( 1 ) 


00045660 

ISN 

046g 

730 STOR2{2*n=t>EL( n 


00C45700 

ISN 

0469 

ro 740 Ifei,NCCF 


00045750 

ISN 

C47C 

GLCALPC I I=ALPC I ) 


00045800 

ISN 

047Z 

CLDDELC I)aOEL(l) 


00C45650 

JSN 

047? 

ALPC I)-ALP< I )+CHNGt2’^<l-l 1 


0004S900 

ISN 

0473 

DELC I)=DEL(l )+CHNGC2*1 > 


00045950 

ISN 

0474 

NT.WOELt I )=DEL ( I ) 


00046000 

ISN 

0472 

NEWALP(I)=ALF( I) 


00046050 

ISN 

047« 

7*0 CONTINUE, 


00046100 

ISN 

0477 

IF <NeiAS*L£*0) GO TO 780 


COC461SO 

ISN 

0479 

K=N2 


0QO462QO 

ISN 

04ec 

IF (NCLASl.LE.O) GC TO 760 


00046250 

ISN 

04B2 

CALL PTSlZe <NaiAS,DRHOSQ] 


00046300 

ISN 

0463 

DO 750 Itl*NCLASl 


OQ046350 

I SN 

0464 

IF (BIASI < U •F.Q*XBI AS) GO TO 750 


OOC46400 

ISN 

0466 

K=K+I 


00C46450 

ISN 

0467 

STaR2(K)j=BIASl< I> 


0004650C 

ISN 

o^ee 

0LD8S1 ( 1 ) =QI AST < I } 


00046550 

ISN 

0469 

eiASl ( I )=a IASI t [ )7CHhG(K> 


QOC46600 

ISN 

C49C 

n£ wBS) II ) =ai ASH z n 


00046650 

! SN 

0451 

DRHOSQIK )-Bl 4 SM M 


C0C4670O 

I SN 

0492 

750 CONTINUE 


00046750 

ISN 

C493 

760 CONTINUE 


00046600 

ISN 

0*54 

IF iNCLAS?*Lt.O) GO TO 760 


00046650 

ISN 

0*56 

• DO 770 1 = 1 *NCLAS2 


00046900 

! SN 

0457 

IF ( B1A£2< I ) .FG*XBl AS) GO TO 770 


00046950 

ISN 

0455 

K=K4l 


00047000 
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ISN GSQC 
I5N 0501 
15N Cf-02 
ISN 0501 
ISN 050^ 
TSN 0 = 05; 
T5N 0506 
ISN 05C7 

ISN C50S 
ISN 051C 
ISN Q6JH 
ISN 0512 
ISN 

ISN OFX^I 
ISN 05f£ 
ISN 057.7 
ISN OEXe 
ISN 052C 
ISN 0621 
ISN 0522 
ISN 052^ 
ISN 0?2e 
ISN 0626 
rSN 0526 
ISN 05?.S 
ISN 0=10 
ISN 0=31 
ISN 0522 
ISN 0534 
ISN 0536 
ISN 0S36 
ISN 0536 
ISN 0539 
ISN 0540 
ISN 054 2 
ISN 0543 
ISN 0644 
ISN 05A£ 
ISN 0546 
ISN 0647 
fSN 0546 
ISN 0549 
ISN 0550 
ISN 0551 
ISN OSES 
ISN 055 2 
ISN 0555 
ISN 0557 
ISN 0669 
ISN 0560 
ISN 056t 
ISN 056 2 
ISN 0564 
ISN CS66 
ISN 0566 
ISN 0569 
ISN 0671 

ISN 0573 
ISN 0574 

ISN 0575 
ISN 0576 
ISN 0576 
ISN 05£€ 
ISN 0562 


ISN 0563 
ISN 0564 


ISN 0566 


5TOR2<i<)e0IAS2( I I 
OLt>B£2I I >=BI AS2C n 
2IAS2< !AS2<1 )4-CHN0(K) 

N2WBS2<n=6IA£?< I> 

0RHQSQ(K>=6IAS2( I> 

770 CBnTInUF 
780 CUNTINUB 

IF (IfttfT«LT«6> GO TO 840 

MRlTt: UPOATEO ATTITUDE STATE 
M«RITH <10ur.l0l0> IST6P 
00 790 I*=1,NCCF 
A 0 UD=ALP( I )“CMKG( 2 *I-S > 

OOLDsneH t >-rhKG12-fcI 1 

*P ITF < lOUT , 1020 » ADLO #CHNG{2* 1-1 ) • ALP( lit OOLD *C»1NG( 2*1 > (DEL ( I ) 

790 continue 

IF (NeMAS*UE«0) GO TO 83 0 
K«N2 

IF (NCcAS1*LE#0I go to 810 
ITITEF®! 

DO 800 1^1 *NCLA51 

IF 16 IASI C I ) *EG* XB I AS ) GO TO 800 
K=K+1 

60l-DsBlASi < I J-CHNtt<K> 

IF tITlTLE,EC«l) WRITE <IDUT,1030> 

ITI TEF=2 

aRITE <IOUT*SOSOJ X iBOLO iCHNCl K > iSI ASl ( I) 
dOO CONTINUE 
SI 0 CONTINUE 

IF IIWCLAS2#LE.0) GO TO 630 
ITITLE=1 

DG 820 l«l,NCLASa 

IF <eiAS2< n ■EC.XSIASI GO TO 820 
X^K+1 

eOL0=BTAS2 ( I )-CHNGtK) 

IF ( I7ITUE.EC*1I WRITE <I0UT,104O> 

ITITtE=2 

ARITE (I out * 1050 1 I#BOEO*CHNe<X)*aiAS 2 < 1 ] 

620 CONTINUE 
630 CONTINUE 
640 continue 

DO 650 1[=1«10 
850 CPT10N<II)=0 
F1NALD=*0 
FINISH = 0 
OO 860 
860 IMESGC I t 

IF IIRETkEQ*0) IMESGUI=1 
IF <IHF.TJbEQ«2) ImeSG< 2)«1 
IF < ISTEP-NE^F.AXIT) GO TO 870 
IMESGI 31=1 
IftE7=6 

870 CONTINUE 

IF <IRET4EU.3> IMESG<4I*1 
IF (lRET,E.a*4l IMESG(5>=1 
IF CIRET*EQ*5I IMESG<6J=l 
CAUL GTSTAT ( • OPT ABl * • ST ATI ) 

IF ISTAT1.NE*STQP1 *CR*laPEN.£Q*0) GO TO BfiO 
IF ( IAULO#EO*2241 CALL FINAL2 ( QWOftKO ♦ AuP • DEu * AI * 0 I * 8 I AS 1 » 8 1 ASl pS 1 00049900 
1AS2I pSIASS fRHCTl ♦RH0T2-,NCt AS| ,NCLA52 pNCQF * lALLO * COfcE • NP ) 00049950 

CAUL CHECK ( •CPTABl ' > OOCSOOOO 

CAUL GOCCQN 1 1 ALLA #1 ALUS » IFRSTl . IERST2 pNTYPEI *NTTPG2 pRHCI tRHa2« G4O00C500S0 
IRK4 *G WORKS * I ALLO ) 

3B0 continue 

IP f imssGI 61 •E0*1«0R* <STAT1*NE«5T0P1 «AND« IRET •NE*1) > RETURN 
IF < IM£SGl7>«e.0*l } GO TO 260 
IF <IRETANE*1> RETURN 
GO TO 390 
C 

C **A4****4*4*1c44*44W4444** FORMAT STATEMENTS ♦♦*4*44*»**4**4*4*4**4444 

C 

090 FORMAT <1 X • 20t • I > » DCCONS "■ V 2*0 - CREATED 7/23/73 •# 20< J ) 

900 FORMAT ( I X *//l X.45 I ■ - • > » * SPEtl F I ED OUTPUT FROM SUBROUTINE DCC0N5 *00050600 
Ip45<*-M,/p 1X.* NCLASl NCLAS2 TZERO XCCF MAXIT IWR<JO0506SO 

2T lOUT* •/ il X»21 0 *F12*4«41 8J 00050700 

910 FORMAT ( I X */ .1 X* • I NI T I AL ATTITUDE COEFFICIENTS AND CORRECTION BOUN000SQT50 
IDS *p/.lX*« ALPHAIOEGI COPR BNDIOEG) OeuTA(DEG) CORR 8ND00050800 

21DEG>* p/wl IX #F14*4 pF16*6 »F14*4*F16*6 > ) 


00047050 

OQC47100 

00047150 

0QC47Z00 

00047250 

00047300 

00047350 

0OC474OO 

00047450 

00047500 

00047550 

O0Q476OO 

OQ047650 

00047700 

00047750 

OCC47EOO 

00047650 

00047900 

00047550 

00046000 

00046050 

00043100 

00046150 

00046200 

00046250 

00048300 

00048350 

OOQ4B400 

00048450 

00046500 

00046550 

00048600 

00046650 

00046700 

00046750 

00048800 

00048650 

00046900 

0004S950 

00049000 

OD049050 

00049100 

00049150 

0004920Q 

00049250 

00049300 

00049350 

00049400 

00049450 

QO049SOO 

00049650 

000498QO 

00049650 

00Q497QD 

C00497S0 

0a€49600 

000496SO 


oocaoloo 

000 50150 
00050200 
000S02S0 
00050300 
00050350 
00050400 
00050450 
OOQSOSQQ 
0CCS0S50 


00050650 
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ISN 0 5^6 

ISN 0567 

ISN 05d6 
ISN 056S 

ISN 05SC 

ISN 0591 

ISN 0592 


ISN 0S93 

ISN CSS4 
ISN 05S5 


ISN 0596 
ISN C5S7 

ISN 0596 

ISN 0599 
ISN 060C 

ISN 0601 
ISN 0602 


ISN 0602 


fSN Q604 
ISN 0605 
15N 0606 

ISN C6C7 


9a0 FORMAT (1X./*1X» ‘CLASS E (COME ANOUEJ INITIAL S 1 AS£S • •/ * 1 X« • TYPE 
1 5XAS(PES) CORR BN0(0EG)*> 

930 FORMAT (1 K fX »{ X . ‘CLASS Z (OHEO ANOLEJ INITIAL 6 I ASES • » IX , « TYPE 
a eiAS(DEG) CORR OND(DEG)*) 

940 FCRMAT ( 1 X . I 4 .Fl 5* 4 .Fie* 4 ) 

950 FORMAT U X « / * t X, »CLASS t (CONE ANGLE) INPUT DATA TVPE**12** 

|4#« CaSPRVATlONS* FRQM«»14>« TQ**14*‘> IN THE DATA ARRAYS*) 


00050900 
00050950 
OOCSIOOO 
00051050 
00051100 
NAS* *.100051130 
QO0SI2OO 


960 FORMAT < 1 X */ * I X« • CLASS 2 (DHED ANGLE) INPUT DATA TYPE*»Z2*‘ HAS« * I 00051250 


14«* CBSERVATlCNSi FROM* • I4»* TO 
970 FORMAT (lX*/*tX.‘ 

IXIS CONE angle 

24)) 

930 FORMAT (iX»/«lX,« 
lS-1 Xi-AXIS-2 


14*'. IN THE data ARRAYS*) 000S1300 

TIME X-AXIS Y-axis ^-aooos13So 

WEIGHT* «/ •C1X»I4*F16»6«2X*3F10*6.F14«4>F12*00051400 

OOOS14SO 

I TIME X-AX15-1 V-AXlS-1 Z-AXI006S1500 

Y-AXlS-2 Z-AXlS-2 OHEO ANGLE WEIGHT* «/»(0005l55a 


21X.I4«Fi&*6«2X.3F10«6.2X*3Fl0.6.F14*4.F12«4) > OOCS160Q 

990 FORMAT ( | X *// *1 X « * $I MUlT ANEQUS ATTITUDE EUUATlONS COEFF ICIENTS *•/. 00051 63 0 
12X) 00C51700 

lOOO format (1X*10E13«6> OO0S175O 

1010 FORMAT (lX|y/«lX*> iteration' .I3.* - attitude and BIAS state « .//.100Q51800 
lX.« OLD AlPHA(OEG) CmAnGE(DEG) NE u ALPHA(DEG) OLP DOOOSleSO 

2ELTAC0EG) CHANGE(DEG) NEW D£LTA(DEG)<) 0QC51900 

1020 FORMAT (lX.3F17«e.4X.3F17*6) 00051S50 

1030 FORMAT U X ./ .1 X. • CL ASS 1 (CONE ANGLE! BIAS STATE •.✓,IX,*TYP£ QLOOQ520OO 
ID'BIAS(DBG) CHANGE(DEG) NEW BlAS(OEG)*). 00052050 

1040 FORMAT ( 1 X •/ .1 X •' CLASS 2 (DHED ANGLE) BIAS STATE *»/*lX*'TVP£ OL00052I00 

to 8ZAS(CEG) CHANGE(DEG) NEW 81AS(C)£G>*) 00052150 

lOSO FORMAT < Ix . I 4 «F1 6. 6 .FI 4* 6 .Fl6*6 ) 00C52200 

1060 FORMAT ( 1 X •/ .1 X* • ATT 1 TUOE STATE COV ARZ ANCE/CQRRELAT I QN MATRIX •»/. 00032250 


llX«lOX*l3nx«2A4)) 

1070 FORMAT U X .2A4 «p.x . 13E9«2 ) 
1080 FORMAT U X ./ « 1 6X* * CL ASS 1 
lYPE MEAN RESIDUAL (DEG) 
2WEIGHT* ) 

1090 FORMAT < 1 X •/• 1 3X • ‘ CLASS 2 
lYPE MEAN RESIOUAL(OEG) 
2WEIGHT* ) 


(CONE ANGLE) ERROR STATISTICS 
STAKCARD DE Vi AT ION ( DEG ) 


(DHED ANGLE) ERROR STATISTICS 
STANCARD DEV I A t I ON ( DEG > 


OOOS230O 
00052350 
' »/* IX*' TOOOS2400 
TOTAL 00052450 
00052500 
>./*lX*« T00052S50 
TOTAL 00C5260b 
00052650 


IlOO FORMAT (1X*15.4X«F13.4«5X.4X.F16«4*5X»&X«F12.4) 

1110 FORMAT (lX*»rCTAL* .4 X »F1 3 • 4 « 5X • 4X « F 1 0 • 4 * 5X • 8X . F 1 2 « 4 ! 
1120 FORMAT < 1 X . / .1 X, 'COMS I NED- TOTAL WEAN RES I CuAl( OEG I 

1 standard DEVIATICN(OEG) « «*F9*4) 

END 


00052700 
00062750 
*.F9*4.* 00032800 
00052850 
O0C529O0 
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CUMPIL.ER OPTIONS - NAME- MA I N* OPT=Ol * L I NECNT-=60 . S I ZE=QOOOK . 

SDOftCE t&dCDlC »N(JLJST » NCCkCK , OOAO » MAP* NDEC XT ■ 1C » XR«F 
C OC000050 


SCOKCOTINE CDPSM 
CALLING SEGLtNCE 

CALL COFSM< TI ME *AXI S #AN6» WGMT fNUMd* I TVPE*N0IM « 

ALPP«0£LP*BIASi I 61 AS « COEF » CK^CS C • RliOST * 
RM. CALC I SCOFF. JONE ) 

DESCPIpTICK 

COFSM IS SIMILAR TC THE GCONES ROUTINE COFSUM nITH 
THE FOLLOWING ADDED FEATURES CALCULATED VALUES 
CAN BE STOPED. DERIVATIVES CAN BE STORED. AND 
RESIDUALS CAN BE STORED* 


WOOOODI 50 
*0aCQ020Q 
AC0000250 
AOOGQ0300 
*00000350 
*00000400 
*00-000450 
A0QCC0500 
*00000550 
*00000500 
*00000550 
*00000700 
*00000750 
*OOCOCBOO 
*OOOOCESO 


c 

CCMMON AREAS REFERENCED 


*00500000 

c 





*0QCQCSS0 

c 


GNCl 



*occoiooo 

c 





*OCC01Q50 

c 

EXTERNAL 

REFERENCES 



*OQCOIIOO 

c 





Aoceoii SO 

c 


ABStCOS.SIN 


*00001200 

c 





*00001250 

c 

STORAGE RECUIREMENTS 


*00001300 

c 





*00001350 

c 


4884 BYTES 

OF CORE 

STORAGE 

*00001400 

c 





*00001450 

c 

variables 




*00001500 

c 





*00001550 

c 

NAME 

TYPE 

I/O 

DESCRIPTIGN 

*00001500 

c 





*00001650 

c 

TIME 

R*4 

1 

ARRAY OF OBSERVATION TIMES 

*0CQC1700 

c 





*00001750 

c 

AXIS 

R*4 

I 

REFERENCE VECTORS ( C IMFNS iONED 

*OO0C1BOO 

c 




NOIM*lNUMBER OF CS5ERVAT IONS 1 > 

*00001650 

c 





*00001900 

c 

ANG 

«*4 

I 

OBSERVED angles* IN DEGREES 

*00001050 

c 





*00002000 

c 

WGHT 

R*4 

I/O 

WEIGHTS FOR OBSERVED DATA 

*00002050 

c 





*00002100 

c 

NLMB 

1*4 

1 

NuMeea of observations for classfoooozisc 

c 




AND TYPE BEING PROCESSED 

*•00002200 

c 





*00002250 

c 

I TYPE 

1*4 

X 

THE CLASS OF DATA PROCESSED 

*00002300 

c 





*00002350 

t 

NCIM 

1*4 

1 

INDICATOR FOR CLASS REFERENCE 

*00002400 

c 




VECTORS 

*00002450 

c 




=3* FOR CLASS 1 DATA 

*00002500 

c 




=6. FOR CLASS 2 DATA 

*00602550 

c 




<X*E«* NDIM s 2*(NUHetR OF 

*00002600 

c 




REFERENCE VECTORS REQUIRED TO 

*00002650 

c 




DEFINE ANGn 

*00002700 

c 





*00002750 

c 

ALPR 

R«4 

X 

RIGHT ASCENSION CCEFF t C lENTS « 

*00002800 

c 




IN RADIANS 

*00002650 

o 





*00002900 

c 

OELR 

R*4 

X 

DECLINATION COEFF XC lEKTS. IN 

*00602950 

c 




RADIANS 

*00603000 

c 





*00-005050 

c 

BIAS 

R*4 

1 

BIAS FDR CLASS AND TYPE OF DATA 

*00003100 

c 




BEING PROCESSED 

*00003150 

c 





*00603200 

c 

IEIA5 

1*4 

I 

INDEX TO INDICATE BIAS UNDER 

*00003250 

c 




CONSIDERATION 

*00003300 

c 





*00003350 

c 

CCEF 

R*4 

o 

RIGHT SIDE VECTOR CF SIMUL- 

*00003400 

c 




TANEOUS Equations 

*00003450 

c 





*00603500 

c 

RHOST 

R*4 

0 

STATISTICS 

*00003550 

c 




RHOSTCl) - WEIGHTED SUM OF 

*00603600 

c 




RESDIUACS 

*00003650 

c 




RHOSTI2I - weiGHTeO SUM OF 

*00003700 


SQUARES DF RESIOUALS00003760 
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c 




RROSTOJ - SO* OF WEIGHTS 

*OOQO JSOO 

c 




RH0ST14) - MEAN RESIDUAL FOR 

*0000381 0 

c 




type 1 DATA 

*00003620 

c 




RHQST(5J - standard cevlATION 

*00003830 

c 




FOR TYPE I data 

*00003640 

c 





*OO0O3ESO 

c 

RH 

R*4 

□ 

vector of residuals 

*00003900 

c 





*00003950 

c 

CALC 

R*4 

0 

VECTOR OP calculated VALUES 

*00004000 

c 





*00004050 

c 

SCOEF 


0 

MATRIX OF PARTIAL DERIVATIVES 

*00004100 

c 




(DIMENSIONED NUMBER OF ELEMENTS 

*00004150 

c 




IN STATE VECTOR X NUMBER OF 

*00904200 

c 




OBSERVATIONS) 

*00004290 

c 





*00004300 

c 

JONE 

1«4 


INDEX INDICATING STARTING LOCA- 

*00004350 

c 




TION OF DATA IN ARRAYS TIME* 

*00004400 

c 




AXi5iANG»«GHT*«H*CALCiSCOeF FOR 

*00004450 

c 




THE CLASS AND TYPE OF DATA 3F INSAO OCOAS 0 0 

c 




PROCESSED 

*OOOQ4550> 

c 





*0000460 C 

c 

COMMON AREA VARIABLES U5ED 

IN THE ROUTINE 

*00004650 

c 





*00004700 

c 

NAME 

Type 

ORIGIN 

DESCRIPTION 

*00004750 

c 





♦0000480C 

c 

I CUT 

1*4 

tiCNl 

FORTRAN DEVICE UNIT FOR SPECI- 

*00004650 

c 




FIED PRINTOUT 

*00004900 

c 





*00004950 

c 

NCOF 

1*4 

OCNV 

NUMBER OF FOLYNCMIAL COEFFIC- 

*00005000 

c 




IENTS FDR ALP AND DEL 

*00005050 

c 





*000051 OC 

c 

irmt 

1*4 

GCNt 

INTCRMEOIAre PRINTOUT LEVEL 

*00005150 

c 




INDICATOR (SEE REFERENCES 1 & 2 

*00005200 

c 




FOR VARIOUS LEVELS) 

♦O00052S0 

c 



.A 


*O0OOS3O0 

c 

72ERQ 

R*4 

GCNl 

reference time 

•00005350 

c 





*COCQS400 

c 

IOC 

1*4 

GCNl 

RESIDUAL storage INDICATOR 

*00005450 

c 




-0, DU NOT STORE RESIDUALS 

*00605500 

c 




=1, STORE RESIDUALS FOR 

*00005550 

c 




display and PLOTTING 

*00005600 

c 





*00005650 

c 

I CALC 

1*4 

GCNl 

calculated values STORAGE 

*00005700 

c 




INDICATOR 

*00005750 

c 




isO* DO NOT STORE CALCULATED 

*00005600 

c 




VALUES 

*00005650 

c 




=1* STORE CALCULATED VALUES 

*00005900 

c 




DISPLAY 

*00005950 

c 





*00006000 

c 

DATA TRAN 

SMISSIQN 


*OOC060SO 

c 





*00006100 

c 

NAME 

PEAD/*RlTe/CPOINT 

DESCRIPTION 

*00006150 

c 





*00006200 

c 

FTXXFOOl 

*R1TE 


INTERMEDIATE PRINTOUT* »H£RE 

*00006250 

c 




XX = IQUT 

*00006300 

c 

REVZ SIDNS 




*00006350 

c 





*00006400 

c 


!• F. 

KNQOP (So 

FEE 19701 - FINAL CATE AT *HlCH 

*00006450 

c 


CODE VKAS FRQ2CN 

*00006500 

c 





*00006550 

c 



NHALEN (SUMMER IS73) - INCLUSION OF LOGIC 

*00006600 

c 


TO 

ALLOW FOR 

SAVING OF THE FQLLOrtlNG VALUES 

*00006650 

c 


CALCULATED VALUES. DERIVATIVES, AND RESIDUALS 

*00006700 

c 


F OR 

MSAD DISPLAY 

*00006750 

c 





*00006500 

c 





*00006550 


c*****4*a ****««*«* 4****«*4^****i»»««>|i+ik««*******:**i)i**«*«>t^^i|*«*4*+*****«*0Caae90Q 


00006950 

c , OOOflTOOC 

c» THIS IGA SPECIAL SUBROUTINE CALLED BV GCONES TO COMPUTE THE .00007050 

C. CONTRIBUTION TO THE COEFFICIENTS OF THE SIMULTANEOUS EOUAT IONS. 000 071 00 

C. (INVERSE CCVaRIANCE MATRIX) FOR EACH TYPE UF DATA. ONE TYPE .OOOC7ISO 

C. AT A TIME. THE GCCNES PHRAAELE AND CCMMENTEO LISTING PROVIDES. OOO07E0O 

C. A DESCRIPTION OF ALL ARGUMENTS PASSED TD THIS SUBfiOLTINE. .OO0Q7E50 

.00007300 

C.. 
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XSN 0002 


ISN OCOZ 


ISN 000^ 


ISN 000£ 

ISN CCC< 
ISN OC07 

ISN occe 

ISN OC09 


ISN oom 


ISN 00%2 
ISN 0014 


XSN 00t€ 

ISN ooie 

ISN 0C3LS 
ISN QOSC 
ISN 0021 
ISN 0022 

ISN 0023 
ISN 0024 
ISN 0G25 

ISN oose 

ISN 0C27 
ISN 002£ 
ISN 003C 
ISN 0032 
ISN 0033 


ZSN 0034 
ISN QQ3S 
ISN 0036 
ISN 0037 
ISM 003€ 
tSM 0039 
ISM 004C 
ISN 0041 


ZSN 0042 
ISN 0043 
ISN 004£ 
ISN 0046 

ISN 0046 
ISN 0049 
ISN 00S2 
JSN OOS2 
ISN 0053 
ISN 0054 
ZSN 0055 
ZSN 00S7 
ZSN 0059 

ISN 0061 
ISN 0 06 3 
ISN 0064 


SUBPOUT I NF. CCFSN ( T I ME • AX I S • ANG, i*GHT ♦NUMB* I T Vp£ , ML) 1 « » AL PH * DELR* 
1 S*1B1 ASSCOSF *OHHCSO*PMOST*RH.CALC*SCQ£Ft JONEJ 
C IrXTEfiNAL RSFeRfrNCES NONE 

COMMCN^GCNl/ ICUT^NCLASJ p NCI.AS2 * NCOF# M AX I T* I WHT , TZEftO . luC . ICAUC # 

1 iCERf SMUUT pNP, 1 WMEHEpISTEP, 1 STOP p IHETp 1ST AT* 

2 CCHMIN.CCRI^AX 

DIMENSION TI VEU) • AXI S < N£>I M . I > , ANOl 1 ) * * GHT 4 I > * ALPft ( 1 > .DEUH 1 1 ) * 

X COfFlNP* NP } •DftHOSQd ) *HHQST < 3 J , RH( I > *CALCU )* DERIVE 8) 

2 SCCEF<NP,1| 

C 

OATA RTQO* TFLAG* X81AS / S 7. 29S78D0 • 999999-9 • 000 * S9S999S#ODO/ 

C ♦♦*** INITIALIZATION 
-Jl = JCNF-'l 

ifrst=j 

K2=NCQF+NC0F 

c WRITF, OyTPCT HEADER IF SPECIFIED 

IF (IURTtGE.S2) KRITE ([OUT, 230) ITYPE 
C 

C **•*« DEGIN SUMMATION LOCP 

c 

DO 320 Icl.NUMB 

C IF TIME IS FLAGGED IGNORE THIS OBSERVATION 

C DATA FOR WHICH THE WEIGHT IS ZERO IS NOT PROCESSED. 

IF (WGHTUl.LT.O.Oi GO TO 220 
IF (TIME! I+Jl ) .EO.TFLAG) GO TO 220 
C IF ATTITUDE IS INERTIAL (NCOF=l) AND HAS BEEN COMPUTED ONCE 

C ***** (IPRST^P) SKIP ATTITUDE COMPUTATION FRCM COEFFICIENTS 
IF (NCOFiLE.l .ANO. IFRST.EQ. 2 ) GO TO 120 
IFRST=2 
AF=0.0 
CR=0,0 

TDIFF = TIME( I+Jl )-TZEfiO 
0T1MF=1 ,0 

C ***** COMPUTE ALPHA AND DELTA AT TIMEtll 
CO 1 00 Jtl ,ncof 
AR=ARFALPR ( J )*DT IME 
DR=DR+DELR( JIWOTIME 
DTIME=DTi MEATO IFF 
loo CONTINUE 

IF <ABS<AR(. LT. 10000.0. AND.AeSIDfil .LT. 10000 . 0 J GO TO 110 
IF (IWRT.GE. 12) WRITE (10UT,2S0) 

60 TO 220 

110 continue 

C SAVE SINES AND COSINES OF ALPHA AND DELTA ANO CARTESIAN 

C ***** coordinates CF UNIT SPIN AXIS VECTOR 
COSA=CQ£(AR) 

£INA=SIN(AH) 

COSe=COS(DR) 

SIN0=S1N(DR| 

L1=COSD*COSA 
L2=C05D*SINA 
U3=SIN0 
120 CONTINUE 
C 

c. ***** COMPUTE ANGLE ANO DERIVATIVES W.R.T. AlPHAO AND OELTAO AT THE 
C *•••* CURRENT STATE 
C 

c ***** COMPUTE' TRLE MEASURED ANGLE (WITHOUT 8 IASI 
GAMMA^ANG( I I 

IF (BIAS.NE.XBIAS) GAMMA-GAMMA-B I AS 
k=WCHT( I) 

IF ( ITYPE. EO. 21 GO TO 140 
C ***** CLASS I OATA - CONE ANGLE 

COSTFE=AXIS( 1,1 )*UlTAXIS(2,l ) *U2tAXIS( 3, I ) *U3 
IF (ABS(COSTFE) .ST.t.O) COSTHE=S1GN(1.0,COSTHE) 

THERAD=ARCOS (COSTME I 
SINTHE=SIN(THERA0I 
THeTA=THERAD*KTCD 
RHOsGAMMA-THETA 

IF (IDC.EQ.l) RH( I+Jl )=GAMHA-TMETA 
IF (ICALC.EQ.il CALCU+Jl)=THETA 
IF (SINTHE.NE.O.OI GO TO 130 
C ***** OERIVATlveS CAN'T BE CCMPUTED, SKIP THIS POINT 
IF (IWRTAGE.I2) WRITE (tOUT.270) 

GO TO 220 
130 CONTINUE 


BIAO00Q740O 
C0OC745O 
DOC07SOO 
000 C755C 
00^0760 0 
C0QC7650 
COOC7700 
• OOOC77SO 
O04C780O 
CQ0C78S0 
C00C7900 
00907950 
OOCC8COC 
OQQCeOSQ 
009 06100 
00008250 
00908200 
OOCC8230 
C-OGC6300 
00008350 
00906400 
OOOC64SO 
0O006S0O 
aC0C6S5O 
OO0C86OO 
000066SO 
00008700 
OO0C875O 
C00088DO 
000C6650 
OO0C6900 
00008950 
00909000 
00QO9QS0 
00009200 
00C09150 
00009200 
00009250 
00909300 
00009350 
00009400 
009C9450 
OOCG9SOO 
00009550 
00609600 
00909650 
0OCC970O 
90909750 
009C9800 
00904850 
00909900 
00009950 

oootoooo 

09010050 
OOCIOSOO 
00010150 
00010200 
9091G2SO 
00910300 
0091 0350 
00910400 
00010450 
00910500 
oooiosso 

00910600 

000106SO 

00910700 

00010750 

00010800 

00910850 

99C1Q900 

00910950 

00911900 

00011050 

00011100 

CGCIllOO 
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ISN 0065 
iSN 0066 

ISN e0€7 

ISN Q06£ 
ISN 0C6S 

ISN ■ oorc 

ISN 0071 
ISN 0072 
ISN 0C73 
ISN 007 6 
ISN' 0075 
ISN 0076 
ISN 0077 
ISN 0075 
ISN 0C7S 
ISN 008C 

ISN ocez 

ISN 00€4 
ISN 0066 
X5N 0067 
ISN 0066 
ISN QC 89 

ISN 0091 
ISN CC9Z 
ISN 0094 
ISN ocse 

ISN 0096 

ISN OlOC 
ISN OlOl 
f SN 0 10 2 

ISN 0103 
ISN 0104 
ISN oice 
ISN 0106 

15N 0108 
ISN 01C9 
ISN one 

ISN out 

ISN onz 

ISN 0113 
ISN 0114 
ISN Oils 
ISN 0116 
ISN 0117 
ISN 0119 
ISN 0121 
ISN 0122 
ISN 0123 


ISN 0124 
ISN 0125 
ISN 0126 
ISN 0127 


ISN 0126 
ISN 0129 
ISN 0130 

ISN 0132 
ISN 0133 
ISN 0134 
ISN 0136 


C *♦♦♦♦ CONPUTF OERiVATIves OF THETA W.R.T, ACPHAO AND DELTA© 00011200 

OERVAi^iAXISI t il >*U2-AXIS(2.1 )*U1 )/SlNTHE OOOllZSO 

0ERVD=CAXISll,I>*C0SA*SlN0*AXIS(2.l)*SINA*SIND-AXIS<3.O*C0S0J/SlN00011300 

I HE 


11 HE 

CO TO 160 

C Ct-ASS 2 DATA - DIHEDRAL ANGLE 

lAO CONTINUE 

E1=AXI S(2>I)*AXIS(6<11-AJ(15(3<I) *AX 1 S(5i I ) 
E2=AX1S0,I>*AXIS<4,I)-AXIS(1.I1*AXIS(6.I) 

E3-AXISC1 , I ) *AXI St 5. I l-AXI S 12, li *AX1 S|4, I ) 

E-AXlStl.I >*AXISt4.I ) + AXlS{2.I )»AXtSt5. U+AXISl3,n*AXIS(6.l J 

SV=U1*AXI Sll ,I>'I-02*AXIS(2,1 t*U3*AXtS(3, 1 ( 

£«=^U1*AXI S(4 .1 J +U24AXI S tS, I > 4-U34AXJS ( 6 > 1 J 
XNUM=U1*E1TU2«E24'U3*E3 
XDEN=F~SV4S4 

01=XOEN*El + XNLM*tSV*AXJSl4.I ) + Sl**AXlS(l .1)1 
G2-XDEN*E2-fXM.M«ISV«AXI5(5,l >+S4*AX I S(2 , I J ) 

Q3=XCEN*E3tXNLM*CSV*AXIS< 6.I ) + S W*AX I 5 ( 3 . I ) > nnalonxn 

,03 (IOUT.240, El.E2.E3.F.SV.S.,XNU«.XDEN.01-Oa.Oo”llOO 

IF <XNOM.NS,0.a.QR,XDEN.NE,0,0) GO TO ISO 
*''*** ^ETA IS undefined and the DERIVATIt)ES CANT 3E COMPUTED OOOllaSO 

CO ^^220 ^ ' <IOUT.260, OOol^OO 

150 CONTINUE OOOIZ3SO 

lHeTA=ATAN 2 tXNUM,X 0 EN»*RT 0 D 00012400 

IF (THETA. LT.O.Q) THET A=THETA*360.0 

' numerical D.SCCNTINUITV at C-360 O^oLIso 


00011330 

00011400 

00011430 

ooeiisoo 

00011950 

00011600 

00011690 

OOOtlTOO 

00011150 

oooiiaoo 

oooiieso 

00011500 

00011950 

00012000 

00012030 


rho=gamma-theta 
IF lABS(HHO) .GT.270. 0) RH0=RH0-S I GN( 360 . 0 .HHO ) 

IF (lOC.EHI.lJ RM( 1 + JI )=GAMMA-THETA 
IF I1CALC.6Q.1) CALCt ITJl )= tHETA 

C •**** *'; R«0 'S STILL TOO LARGE ELIMINATE BY SETTING 0EIGHT TO 0.0 
IF (ABS(RHC) •GF%90* 01 tt.=0»0 

C COMPUTE DERIVATIVES OF THETA X.R.T. ALPHAQ AND DELTAO 

DFRVA=(-Q1*U24C2*U1 > / I XNUM*XNUM>XOEN*XDEN > 

C ***** SUM STATISTICS , 

RHQSTIl JtRHOSTtl H-RHCJ4K 
RHOSTI2 )^RH0ST(2M'RHC*RHQ«W 
RHOSTI3)tRHOST(3)«-M 
IF IlMRTbLT.ia) GO TO ITO 

C 44*** OUTPUT INTERMEDIATE QUANTITIES IN SUMMATION PROCESS 
AO=AR*RTOD 
DD-0B4RTCD 


00012600 
000126SO 
OO012TOO 
00012750 
00012800 
00012890 
OO0I 2900 
00012950 
0 OOt 300© 
00013C50 
00613100 
00013150 
^OGI 3200 
00013250 
^OGtSlOO 
0001 3350 
00013400 
00013450 


4RITE <IOUT.250, I -T IMEL »*.! > . TO I FF . « . AD.DD . DER VA. DERVD . THET A . GAMMOoIJsSOO 


AO, DO, Al. Dl, 


lA.RHQ 
170 CONTINUE 

C ***** COMPUTE VECTCR OF DERIVATIVES 
CTlME.^l.O 
DO 160 J*2,M2,Z 
OERI V< J-1 )=DERVA*OTIM£ 

OERIVt J>c0ERV040TI ME 
CTIME=OTIME*TOIFF 
IF IICER.NE.I) GO TO I BO 
IF (N2.GT.13) go to ISO 
SC.OEFIJ-l .I+j,)=cER1V<0-1) 

£COEF( J,1*J1 )aDERIV< J) 

180 CONTINUE 

C ***** SUM MEIGHTED alpha and delta COEFFICIENT DERIVATIVES CROSS 

5 !!!!! INTO COEFFICIENT MATRIX (LQkER. LEFT. QFF-CIACONAL 

c ***** IS NOT summed because of symmetry! 

DO 200 J*1,N2 
Do 190 K*J,n2 

COEF ( J, K) =COEF I J I K >*0ER1 V (K >«DER I V( J J** 

190 CONTINUE 


00013SSO 

00013600 

00 01365 0 
00013700 
OC01375O 
00013800 
00013850 

0001 3900 
00013SSO 
OCC14000 
OO014CSO 
00014100 
00014150 
00014200 
00014250 
00014300 
00014350 
00014400 
00014450 
00014900 


::::: ^^taining right sice of simultaneousoooi:65o 

DRHOSQI J»=ORHCSU(J>*HHC*DEHIV( J)9ai 00014600 

200 CONTINUE 00014650 

IF (BIAS.EQ. XBIAS! GO TO 220' 00014700 

***** COMPUTE ALL matrix ELEMENTS DEPENDENT ON BIAS 

00 210 J^1,N2 CC014600 

COEF(J.IBIAS)=COEFtJ,IBI AS)*OEfiIV(J!«M 

210 CONTINUE 00014900 

C0EFUBIAS.ieiA5) = CD6F(IfllAS.laiAS)** COolsflOO 
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ISN 0136 
ISN 0X37 
ISN 0135 
ISN Q14C 


ISN 014t 


ISN 0142 

ISN 0143 
ISN 0144 

ISN C X 4 £ 

ISN 0146 

ISN Ct47 


ORHOSO( IBIAS)=0Mhasa( lBlAS)-4-RH04to 
IF (iCEf^.EQ*!) SCOEf (IBIAS.D^I* 
220 CONTINUE 
RETURN 


cool SOSO 
00015X00 
00C1515O 
oootaaoo 

C 000152SO 

c FORMAT STATEMENTS J>4'*4*4'***H‘44*4+444**4*****00 CIS 30 0 

C 00015350 

230 FORMAT < 1 X «/ »1 X . • SUaROUT IN£ CQFSM - ATTITlJOe EOUATlCNS CoEFF IC lENTOOOl 54 00 
IS computations for CLASS' »I2.* data ••//.IX,' I TIME 00015450 

Z TDlFF ineiGHT ALPHA DELTA DERVA DEOOCX5500 

3RVD THETA GAMMA «H0*./.2X) 0001S550 

240 FORMAT < I X ■ • El *Z # 3= • ■ 3Fa *4 ■ • F » S V . Stt=* » 3F6#4 , • XNUM t XDEN=* * 2Fe«40aCl EfiO Q 
Xm* Ui • 2% 3=' *4r»*4 J 000X5650 

250 FORMAT < 1 X , I 6 , 5F1 ?..4 ♦SFIB# 6 ) 00€lS7CO 

260 FORMAT <1X****4*44 THE ABSOLUTE VALUE DF ALPHA AND/OR DELTA IS T0000015750 

1 LARGE i «100000.0 RADIANS)*} OOC1S8O0 

270 FORMAT (1X»*4«4444 S IN ITHET A >=0 • 0 f DERIVATIVES OF THETA i«*R«T« ALPCCC15650 
IHA AND DELTA ARE UNDEFINED') 

2ao FORMAT (IX*'*44**4 PSI IS LNOEFInEO» DERIVATIVES OF PS 1 M«R*T« 

IHA AND DELTA ARE ALSO UNDEFINED') 

END 


O0C1S9OO 

ALP00015950 

00016000 

CCC16C50 
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COMPILER OPTIONS NAME^ MAI N, UPT-Dl »L1 NECnT«6 0 »SXZE=OOOOK • 

SOURCC«&BC01C» NOLI ST. NODECK t LOAD .MAP I NUeC IT • ZO. XAEP 
C QO^OOOSO 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c- 

c 

c 

c 

c 

c 

c 

c • 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUeROUTlNfi 9LKINV 


CALLtNO SECOENCE 

CALL eLKlNV>iCOEP« 1 • NP «OET • i£RR « STCRl • $T0 R2 t fiL J 


OeSCRiPTICN 


0LK1NV INS^ERTS a SVMETRIC BLOCK ClAGONAL MATRIX 
LSING A MAXIMUM PIVQT STRATEGY 


CCMMON AREAS REFERENCED 


NONE 


external references 


STORAGE RECUIREMENTS 


1408 BYTES OF CORE STORAGE 


variables 


NAME 

TYPE 

1. 

CCEF 

R*4 

I. 

1 

1*4 

I 

J 

1*4 

I 

NP 

1*4 

1 

DET 

R*4 

O 

lERR 

1*4 

o 

STORl 

R*4 

0 

ST0R2 

R*4 

o 

RL 

L*l 

Q 


400000150 
4C0000200 
*00000250 
*00000300 
*C000C350 
*00000400 
*00000450 
4C0G00S00 
*C00C0S50 
*00000600 
*00000650 
*00600700 
*00000750 
*COCOCBOO 

*coooceso 
*ocooc9oe 

*00000950 
*00601000 
*00601050 
*00001100 
*00001150 
*00001200 
*00601250 
*00001300 
*00001350 
*00001400 
*00001450 
*00001500 
*00001550 
ON R£TURN*OOOOlCOO 
COEF contains inverted BLOCK *00001650 

*00001700 

STARTING RQN AND COLUMN OF BLQCK*00601 750 
TO BE INVERTED *00601600 

*00601650 

STOPPING RQW AND CCLUMN OF eLgCK*OOQOl 90 0 


description 


SYMETRIC 
SLOCK TO 


MATRIX CONTAINING 

ae inverted* 


REVISIONS 


TO BE INVERTED 


SIZE OF SQUARE MATRIX COEF 
(DIMENSIONED NP X NP) 


VALUE OF Th£ DETERMINANT 

ERROR CODE 

•=0. NORMAL RETURN 
-1 I ZERO PIVOT ELEMENT 
INVERSE CANNOT EE 

WORK ARRAY(S1ZE OF NP 


AORX array (SIZE CF NP 


WORK ARRAY(SI2E OF NP 


J* WHALEN (SUMMER 1972) - ORIGINAL CODE AND 

testing 


*00001950 
*00602000 
*00002050 
*00602100 
*00002150 
*00002200 
*00602250 
*00002300 
*00002350 
*00002400 
OBTA1NED*00002450 
*00002500 
QR LAftGER)*C0602550 
*00602600 
OR LARGER1400002650 
*00002700 
OR LARGER)*00002750 
*00602800 
*00603650 
*00602900 
*00002950 
*00003000 
*00603050 
*00603100 


C*******«*****************«*****«*****.«***««**********«*****«*******«***00003150 


00603200 

00603250 


ISN 

0001 

SUBROUTINE 6LKINV ( 8 .LO .Hi . N .DET • lER .P« Q*R ) 

00003300 

ISN 

0003 

dimension B( N.K) .Pit I *0(1 ) iRU > 

00003350 

ISN 

0004 

LOGICAL*! R 

00603400 

tSN 

0CC5 

INTEGER HI 

00003450 

ISN 

0006 

DET=l« 

00063500 

ISN 

0CC7 

DO ICO I^LCI«HI 

00663550 

ISN 

00C8 

100 P ( 1 >-«TRUE. 

00603600 

ISN 

0CC9 

DO 160 l^LO.HI 

00003650 

ISN 

OCIO 

eiG=o« 

00603700 
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tSN 

OOil , 


CO 110 j=ua»Hi 

00603750 

1 SN 

ooia 


IP ( ( •NCT«r^< Jl )«CR«< ABS(5( J* J) J .I-T.BIGI ) GO TO 110 

00003800 

1 SN 

0014 


aiG-ABSia ( j« j> ) 

00003850 

ISN 

CClt 


Ksj 

00603400 

ISN 

OCIC 

110 

CGNTINUS 

00003450 

ISN 

OC17 


CET=0£T»B( K»K) 

006G4000 

ISN 

0018 


IF CBIG.EO.O.) GO TO 170 

00004050 

ISN 

0020 


RIKI=.PALSE* 

00G04K00 

ISN 

0021 


F(K>=1« 

00004150 

tSN 

0022 


0<K»=l*/a(K*K) 

O0C04200 

ISN 

0023 


B(XtK)«0. 

00004250 

ISN 

0024 


IF (K.EO^LO) GO TO 130 

00C0430O 

ISN 

Q02£ 


M-K-1 

00004 350 

ISN 

0C27 


00 120 

00004400 

ISN 

0028 


P< 

00004450 

ISN 

002S 


0<J|«B( J»K>4Q(K) 

00004500 

ISN 

C03C 


IF G(J>=-Q(JJ 

00004550 

ISN 

0032 

120 

8 i J *K l-sO* 

00004600 

ISN 

0033 


IF <K*£0^H1) GO TO ISO 

0OCO465O 

ISN 

0035 

130 

«=K+1 

00004700 

ISN 

0C36 


CO 140 

00004750 

ISN 

0031 


F< j>=*-a<K* j) 

00004600 

ISN 

0038 


IF (R<J)> P(JJ£*P{J) 

000048SO 

ISN 

0C4C 


0( J)=->SIK» J)*Q<K> 

00604400 

ISN 

004 & 

140 

QIK» J>=^0» 

00004450 

ISN 

0 04 2 

150 

DO 160 

00005000 

ISN 

0 04 3 


DO 160 KfcJ »HI 

OQO0SO5O 

ISN 

0044 


E( J»K>s8fJ tK)4P( J}*G<K} 

00606100 

ISN 

004E 

160 

B(K« J]^B< J .K) 

00005150 

ISN 

0G4C 


IF.«=0 

00905200 

ISN 

0C47 


RETURN 

COOOS2SO 

ISN 

0048 

170 

1ER=1 

■oooQsaoo 

ISN 

004S 


RETURN 

00005350 

ISN 

005G 


END 

00003400 
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COMPILER GPTIGNS - MAI N • 0PT = 01 .Ll NECNT-=60 tSXZE^OOOOK « 

SQORCE»EBCDlC«MOLlST*NaCECKtLOAD«MAP»NOEDlT« XOf XREF - 

c ooeooGso 


C 

c 

c 

c 

c 

c. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


scenouTiNE gstati 


CALLING SeCliENCE 


CALL 65TATI<ALPiALP5NO»ALPCUN*OEL*0€l@ND,Q£LCOH* 
ARGCUM*TXMEX»AXlSt«ANGl<HGHTl« tFRSTl» 
NXyPCl •EIASt«09NC)l*MHOSTl»RHOt«CALCl* 
SCOEFi •T1ME2«AXX52«ANG2 »«GhT£ » IFRST2» 
NTypE2*erA52*8QND2.MH0ST2,RH02*CALC2# 
SCOeFa»AVGFHO,COEF*DRMaSO»CHNG»STaRl * 
STOP2 .ALPR •DELR»STTPei aSTTPEa. ETYPE., 
RL> AORK»BllCUM)- 


OeSCRlPTICN 


FLAGGiGCNI »gdcon 


EXTERNAL REFERENCES 


AeS.CHECKvlNCORE.PTSXZE 


STORAGE REQUIREMENTS 


S400 BYTES QF CORE STORAGE 


*00000160 
*00000200 
*00000250 
*00000300 
*00000350 
* 00000*00 
*00000450 
*00000500 
*00000550 
*COCC06O0 
*00000650 
*00000700 
*00000750 
*00000600 
*00000650 
*00000600 
*00000650 

GSTATI STORES CUMULATIVE ITERATION RESULTS FOR *00*01-1300 

DISPLAYING and PERFORMS RESIDUAL EDITING ON THE OATA*OOOOl-OSQ 

*00001100 

COMMON AREAS REFERENCED *00001150 

*00001200 
*00001260 
*00001300 
*00001350 
*00001400 
*00001450 
*00001500 
*00001550 
400001 EOO 
*00001650 
*00001700 
•COOC1T5C 
*00001600 
*00001660 
* 0000 X 000 
*00001650 
* 00002000 . 
+0QO02C5P 
* 00002 X 00 
*00002150 
*00002200 
*0000.2250 
*00002300 
*00002350 
*00002400 
*00002450 
*00002500 
*00002550 
*00002600 
*00002650 
*00002700 
*00002730 
*00002600 
*00002650 
*00002000 
400002SSC 
*00003000 
*00003050 
*00003100 

REFERENCE UNIT VECTORS FOR CLASS*000031SO 
Jl< dimensioned 3*NUM0ER OF CLASS *00003200 


VARIABLES 


ALP 


ALPCUM 


DEL 


DEL6ND 


OElCUM 


DESCRIPTION 

A PRIORI POLYNOMIAL COEFFI- 
CIENTS FOR RIGHT ASCENSION* 

IN DEGREES 

CONVERGENC;! EOUNQS FOR ALPt 
IN DEGREES 

cumulative RESULTS FOR ALPIl) 

A PfilOfli POLYNOMIAL COEFFI- 
CIENTS FUR DECLINATION* IN 
DEGREES 

CONVERGENCE BOUNDS FOR DEL* 

IN DEGRESS 

CUMULATIVE RESULTS FQR DEL U ) 

ITERATION INDICATOR FOR VALUES 
IN ALPCuM* AND OELCUM 

REFERENCE TIMES FOR CLASS I 
(CONE ANGLE) CATA 


AXXSl 


ANGl 


WGHTl 


1 OBSERVATIONS) 

CLASS 1 {CONE ANGLE) COSERVA- 
TIONS* IN DECREES 

CLASS 1 WEIGHTS 

POINTERS INDICATING STARTING 
POSITIONS FUR EACH TVPE OF 
CLASS 1 CATA IN THE ARRAYS 
T [MEl I AXISl* ANGt*WCHTl 


*00003230 

*00003300 

•00003350 

*00003400 

•OOC034SO 

*00003500 

*00003550 

*00003500 

*00003650 

♦00CC370Q 

*Q000.3T50 
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1*4 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


NTVPF.1 

SIASi 

BSNOl 

t^HOSTl 


HHOl «44 I 

CALCl P*4 I 

SCO^Fl P*4 t 

XlHEZ P*4 I 

AXIS2 R*4 1 


ANG2 R*4 I 

»«GHT2 R*4 I/O 

If=«ST2 144 I 

NTyP££ 1*4 1 

BIASS R*4 1 

0BND2 R*4 I 

RH0ST2 fi*4 I 


*OOQ03aOO 
*00003€50 
*00003900 
*00003^50 

ESSENTIAL ESTIMATE Qf BIASES FOR*OOC04qOO 


NiJMEER CF QBSeftVATICNS OF EACH 
TYPE OF CLASS 1 DATA 


EACH TYPE OF CLASS % DATA 


convergence 0OONCS FOR BlASl 
ELEMENTS 


*00004C5C 
*00004100 
( 00004 ISO 
*00C 04200 
*00004250 

CLASS t statistics defined as *00004300 
HHQSTin«IJ - WEIGHTED SUM OF *00004350 
ANGLE RESIDUALS *00004400 
FOR TYPE 1 DATA *00004450 
RHOSTU2*!) “ WEIGHTED SUM UF *00Cu4£0O 
SQUARES OF ANGLE*00004550 
RESIDUALS FOR *00004600 
TYPE I DATA *00004650 

RH0STH3fll) - SUM OF WEIGHTS *00004700 
FOR TYPE I DATA *00004750 
HHDST1<4«I) - MEAN residual *00004760 
FOR TYPE I DATA *00004770 
RhQSTi(5«n - STC* DEVIATION *00004760 
FOR type i data *00004790 
*00004600 

residuals FUR Class i data 

DEFINED AS OBSERVED MINUS 

CALCULATED 


CALCULATED ANCLES FOR CLASS I 

data 

DERIVATIVES OF CLASS I ANGLES 
WITH RESPECT TC STATE VECTOR 
ELEMENTS 

REFERENCE TIMES FUR CLASS 2 » 
DIHEDRAL ANGLE* DATA 

REFERENCE VECTORS FOR CLASS 2 
DATA (DIMENSIONED 6 * NUM0EA 
OF CaSERVATIONS. TH6 1 TH 


*CC004€50 

*00004900 

*00004950 

4QOCC5000 

4O0C0S050 

*00005100 

*00005150 

40000SZ0O 

*00005250 

400C05300 

*00005350 

*00005400 

*00005450 

*00005300 

4000C5550 

*00905600 

*00005650 


DIHEDRAL ANGLE IS MEASURED FROM *00005700 


VECTQRC (I • I ) * < £« I )* (3» I) ) TQ 
VECTOR < (4, 1>« (5*I)« (6» I) > 


CLASS 2 ANGLESt IN DEGREES 


WEIGHTS FOR ClASS 2 DATA 


*00005750 
*00005000 
*OO0C565O 
*GOCC5900 
♦00Q05950 
*0 COOOCOO 
40000&050 

POINTERS INDICATING STARTING *00006100 
POSITIONS FOR EACH TYPE OF ClASS*OOOC 6 150 
2 CATA IN THE ARRAYS TIME2* *0OCGe200 
AXIS2, ANG2, WGHT2 *O0CC625O 

*00906300 
*00006350 
*00006400 
*00006450 
*00006000 
*00006550 
*00006600 
*00006650 
*00006700 
*00006750 
*00606600 


NUM6ER OF CBSEFVATICNS OF EACH 
TYPE OF CLASS 2 DATA 

essential estimate of biases 

FOR EACH TYPE OF CLASS 2 DATA 

CONVERGENCE eOUNCS FOR 81AS2 
ELEMENTS 

CLASS 2 STATISTICS DEFINED AS 


RH0ST2(1«I) • 


RHOST2<2.n - 


RhOST2C3.II - 


RH0ST2(4*I> 


WEIGHTED SUM QF *00006650 
ANGLE RESIDUALS *00606900 
FOR TYPE 1 DATA *00006950 
WEIGHTED SUMS OF*00007000 
SQUARES OF AN6LE*00CC7C5O 
RESIDUALS FOR *00007100 
TYPE I DATA *00007150 
SUM OF WEIGHTS *00007200 
FDR TYPE 1 DATA *00007250 
MEAN RESIDUAL *00007260 
FOR TYPE 1 DATA *00007270 
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c\ r> 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c ■ 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c. 

c 


RhOST£(S» I > - STO 


RHO?. 


CA1.C2 


D£ V lAT ION «00 0{t7£6 0 
FOR TYPE I data ♦QOGOT29C 
*00607300 

2 CATA 


CGEF 


ORHQSO 

ChNC 


R*4 


R*4 


R*4 

R*4 


RESIOUA4.S FOR CLASS 
0EFIN60 AS OBSERVED MINOS 
CCMFUTEO 

calculated angles fop Class a 

DATA 

DERIVATIVES CF CLASS Z ANGLES 
WITH RESPECT TO STATE VECTOR 
ELEMENTS 

USED TtJ STORE AVERAGE RESIDUAL 
MAGNITUDE 

ARRAY USED FOR CGEFFICIENT 
COVARIANCE* ANC CORRELATXCN 
MATRICIES 

WORK ARRAY ( DI MENS lONEO 13) 

WORK ARRAY USEC TO STORE THE 
UPDATES To The state VECTOR 


400G07350 

*00007400 

400C074S0 

400007500 

4000C7S50 

400007600 

*00007650 

♦OOG07700 

♦0OC0775O 

400007600 

*00007650 

400G07000 

•00007950 

40QCOBOOO 

40C0060SO 

4000C8100. 

♦oooceiso 

4000Q8200 

40QCC5250 

400006300 

40000E350 


c 




AFTER EACH ITERATION 

*coeceA5 0 

c 





400006 SOO 

c 

STORl 

R44 

1 

WORK ARRAY! DIWENSICNED 13) 

400006550 

c 





400GC8600 


STGR2 

R4A 

I 

tuORK ARRAy < 01 mens lONEO 12J 

400006650 

c 





4000CB700 

c 

ALPR 

R44 

1 

RIGHT ASCcNSIQM ALP) CcePFI- 

4O0OC67SO 

c 




CIENTS* IN RADIANS 

*00006800 

c 





4COOG6650 

c 

DELft 

P44 

I 

D6LC INATIONI DEL) COEFFICIENTS 

400608900 

c 




IN RADIANS 

400GC6950 






400609000 

c 

STVPEl 

R44 

1 

ALPHA-NUMERIC WORK ARRAY 

40CC09C50 






40O6C91OQ 

c 

stvpes 

R*4 

I 

ALPHA-NUMERIC WCRK ARRAY 

400009150 






*□0009200 


BTYPE 

144 

1 

WORK ARRAY (DIMENSIONED 13) 

*00009250 






400009300 

c 

RL 

L*1 

I 

WORK ARRAY ( DIMHNS lONEO 12) 

400009350 

c 





4000094G0 

c 

WORK 

R44 

I 

MDRK ARRAVIDlMENSIDNeO 13) 

40Q6C9450 






*00009300 

c 

atlCUM 

R*8 

Q 

alpha-numeric OORK ARRAY USED 

T04C0009550 

c 




STORE CUMULATIVE BIASES FOR 

400009609 

c 




DISPLAY 

4C00C9650 






*00009700 

c 

COMMON 

AREA VARIABLES USED 

IN fiOUTiNS 

4000 C9750 

c 





*00009800 

,c 

name: 

type 

ORIGIN 

DFSCHIPTIQN 

*00009650 

c 




' 

+OCGC9900 

c 

ICUT 

1*4 

GCNl 

FORTRAN DEVICE UNIT FOR 5PEC1- 

• OOOOS.95C 

c 




FIED OUTPUT 

4O0C1OCOO 

c 





4CCC1CC5C 

c 

NCl-ASl 

1*4 

GCNl 

NUMBER OF CLASS 1 DATA TYPES 

*00610100 






* 0001 olso 

c 

NCLASa 

144 

GCNl 

NUHEER OF CLASS 2 DATA TYPES 

*00010200 






400010250 

c 

IHWT 

1*4 

GCNl 

INTERMeuiATE PRINTOUT LEVEL 

400C10300 

c 




INDICATOR! SEE REFeHENCES 1 £ 2 

*00010350 

c 




FOR VARIOUS LEVELS) 

•400010400 






400010450 

c 

IOC 

144 

GCNl 

residual storage indicator 

*00010500 

c 




= 0. DO not store residuals 

*00010550 

c 




=1, STORE residuals FOR 

400010500 


DISPLAY and PLOTTING 


smult 


GCNl 


*00010650 
*00010700 
• cool 0750 
400 Cl C600 


144 


RESIDUAL EDIT C« I TER 1 A . { THE 
WEIGHTS CF ANGLES WHCSE MAGNI- 
TUDE QF RESIDUAL IS CHEATER THAN*0CC1 CESO 
SMULT4( AVERAGE QF RESIDUAL MAG- 4CCC1090Q 
NITUDF) IS SCT TQ THE NEGATIVE *00010950 
OF THE RESIDUAL 4QCC11000 

400011050 

CURPENT ITERATICN INCICATOR *OOClllOC 
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ISN OOOS 


ISN 0003 


I5N 0004 
ISN OCCS 
Z5N occe 
ISN QQQ7 

ISN occe 


ISN OCCS 
ISN OOIC 
ISN OOtt 
ISN Q01£ 
ISN 0013 
ISN OOlS 
ISN 0016 
ISN 0CI7 

ISN ocie 

ISN 0019 
ISN 00£C 
ISN 0021 
ISN 0022 
ISN 0022 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 




GCNl 


data transmission 

NAME P£ADX*faT£yCPOINT 

FiXXFOOl AftITE 


gstata 


GSTATJ 


REFERENCES 


Fooclliao 

residual edit fiOUNOC I*E.,AVERAOe*OOeHJOO 
residual for class 1 AKC CLASS 2*OOOU2SO 
CATA» •00011300 

*00011350 
*00011*00 
*00011450 
*00011500 
*00011550 
•oooiieoo 
*oooii£eo 

•00011700 

CUMULATIVE STATE VECTOR OISPLAV *00011750 

•OOCllBOO 

•cooiieso 

•00011900 

•ooeiisso 

*00012000 

L.H-.SCHLEGEL, CCNES AN ITERATIVE DIFFERENTIAL *00012050 
CORRECTION TECHNIQUE FOR ATTITUDE DETERMINATION *00012109, 
OF A SPINNING SATELLITE. IBM FSO REPORT. *00012150 

CONTRACT NAS 5-10022, MAT 1697 *00012200 

*00012250 

SUHVET AND EvALUATICN OP ATTITUDE CETEKM IHATIQN *00012300 
TECHHIOOESi ISM FSD REPORT TR-68— S» CONTRACT 
NAS 5-10022. MAT 1963. PP« 4-14 TO 4-24 


CPOINT 


DESCRIPTION 

INTERMEOIATE PRINTOUT. »HERE 
XX = lOUT 


RESIDUAL EDIT DATA DISPLAY 


REVISIONS 


J, *MALEN (SUMMER 19721 - ORIGINAL CODE AND 
TESTING 


*00012350 
*00012400 
*00012450 
• 00012500 
*00012550 
*00012600 
*00012650 

L. PEAKES (13 JULY 1973J - MOO IP IC AT ION S TO *00012700 

LOGIC TO ALLOM FOR BETTER DISPLAY QF CUMULATIVE *00012750 
ITERATION RESULTS AND ALTERATION OF LOGIC OF 
OF residual EDITING FROM ZERO MEIGHTS TO 
NEGATIVE MEIGHTS TO ALLOW FOR REINITIALIZATION 
OF THE SYSTEM 


•OOCIESOO 
*00012650 
*00«12900 
*00012950 
*00013000 
*0001 3050 


C»FF4«Ji*1»4»^4F*#!***1«*^**F**44«*F*>Mi**F4ir»F4**4<«^*44*1'«*1'4**************FF**OOel3lOO 

SUBROUTINE OSTaTI C ALP • ALPSNO . ALPCUM • DEL « oeLQNO t CEt-CUM * 4RGCUM , T IMEOOOI 3 I 30 

i| lAXlSl *ANG1 .liGHTl .IPRSTl *NT1PEI ,SlASl*QBNQt *RHC3T t ^RHO I .CALCl 4 SCQOOOl 3 200 
2EFX illME2*AXiS2#ANG2 * WGMT2 . I F«ST2 • NT yPE2 .6 I AS2 . 08ND2 * RhOSTfi *RHU2 1 COOCl 32 5 0 
3ALC2 * SC0EF2 • AVGftHO *COEF 40RH0SQ *ChNG • STUR l * STOP 2 * ALPH *0 £lR • STVPE l • 500013300 


4TYPF.2 «8TYPE« RL »ttORK* Bl XCUM) 


00013350 


CaweiNED RESIDUAL fcOITTiNG* CUMULATIVE DISPLAYS OF AUPt I > AND 0E6CCCi3400 
COMBINED RESIDUAL EOITTING* CUMULATIVE DISPLAYS CF ALF<1> AND DELOOfllSASO 


OOOX 3£00 
OOOX3SSO 
00013600 
00013650 
00013100 


AND PRINTING CF DERIVATIVES IN SCQEFl AND SC0EF2* 
dimension ALPU) *ALP0NDU > 4 ALPCUMt 1) *0EL< t ) tDELENO< I ) 4DELCUM4 1 1 » 

1 ARGCUM( 1 »4T|M£Uli*AXISU34n 1 ANGl Cl ) ,WGHTUl ) . 

2 IFRSTICI J iNTYPEl tl 61 ASUl ) «B5NOl( 1 » •RhOSTK 3*1 J* 

3 RHOKU *CALCl(l) .SCOEFl<NP,l>.TIMe2Cl>.AXiSa<6*l)i 

4 ANG2(n.WGHT2(U*tFRST2(l).NTYPE2Cl ) . 6 I AS2 1 1 ) *BBND2 ( 1 J * 

5 RMaST2( 3 *l ) «RH02( 1 ) » CALC2C1 ) * 5C0EF2< NP tllvAVCRHOCS.*!)* 

6 COFFtNP.NPi *DRHOSQ<NP) *CHNG<NP) *STOKl(NP> .ST0R2(NP) » 

7 ALPRU) *OeLK<U tSTYPElU) .STYPE2U ) , BTYP6C 1 ) * RLC U »«OHK< ll 
INTEGGR^A BTYPEtCORH I N *CORMAJC » ARGCUM 
REAL*e BLANK8*eilCUW(5*ai) * DUMMY (5) .DUMMYl <5| 

DATA BLANK0/* •/ 

L0GICALJ»1 RL 

COMMON/GCNl /IQUT *NCL ASl #NCL AS2 *NCUF * M AX IT * IHfRT*TZERC*lUC* ICALC* 
t I OER • SMULT #NP * 1 HfHERg * I STEP* I ST OP * I RET • I STAT • 

Z CCRMlN.CORIi^AX 


COMMON /FLAGG/ FLAG •TEST 
COMMCN/GDCCN/ AVG 
DATA TFLAG/9 999999./ 
N?5NC0F*2 

IF llSTCIP.GTil> GO TO IGO 
DO i 00 .5 

CD 100 J<=1*21 
allCUM(IVJ>=BLANK8 
too CONTINUE 
ARGCUMC 1 
ALPCUMC 1 >-AlPU ) 

OFLCUMC l)=r>ELUl 
K*0 

IF (NCLASl.LE.O) GO TO 120 


00013600 
OOOt 3650 
00013900 
00013950 
00014000 
00014050 
00014100 
0001415C 
00014200 
000142SO 
00014300 
00014350 
00014400 
000144SO 
00614600 
00014650 
00014600 
0001 46S0 
00014700 
OOC14750 
00014600 
00014650 
QOCl 4900 
00014950 
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ISN 002? 
ISN 0C2€ 
Z5N 002£ 

! SN 0C2? 

ISN 0030 
ISN 0031 
ISH 0033 
ISN 0034 
ISN 0C3« 
ISN CC3? 
ISN 0036 
ISN 003? 
ISN 004i 
ISN 0C4£ 
ISN 004 3 
ISN 0044 
15N OC4? 
ISN 0047 
ISN CC46 
ISN 004? 
ISN OCSC 
tSN C051 
1 SN 00? 2 
ISN 0 0? 4 
ISN 005€ 
ISN 0C57 
ISN OQSS 
•ISN 005? 
ISN 0Q6i 
ISN C0€£ 
ISN ooe4 
ISN oces 

ISN 0Q5C 
ISN 0067 
ISN 0C6? 
ISN 0C7C 
ZSN CC7I 
ISN 0075 
ISN 0 07 3 
ISN' 0C7 4 
ISN 0075 
ISN 0075 
ISN 0076 
ISN OCT? 
ZSN Qoec 
ISN ocei 
iSN ac62 
ISN 0063 
ISN 0C64 
ISN 0065 
ISN 0067 
ISN 0088 
ISN 009C ^ 
ISN CC9I 
ISN 0C92 
ISN ^0093 
ISM C0S5 
ISN OCSfi 
ISN C€?6 
ISN OC?? 
ZSN 0100 
•ISN OtOl 
ISN 0103 
ISN 0104 ■ 
ISN 0105 
ISN 0106 
ISN 01C7 
ISN OIC? 
ISN 0110 
ISN Oil] 
ISN Oll£ 
ISN 0123 
ISN 0114 
ISN 0116 
ISN 0127 

ISN one 

ISN 0120 


DO 110 I«1*NCLAS2 

IF (BIASl ( n ♦EO.TFUAGl GO TO HO 
K«K+1 

CUNMtlK)*=SlASl(I} 

*110 CONTINUE 

120 IF <NCCAS3«CI?*0) GO TO 140 
00 130 1^1 »NCtAS2 

IF (BIAS2( 1> .EC«TFLAG» GO TO 130 
K=K + 1 

CUMM> {K>s:blAS?< 1 } 

130 CONTINUE 

140 IF IK«LE«0» GC TC 160 

CALC INCORE (OUHMy lOUNHYl »15*K,a»3 ) 

DO ISO I*=l»S 

150 611CUM( I • 1 l-DOMMVl ( I ) 

160 II=1STep+1 

IF UZ*GT*21) GO TO 22Q 
ARGCUM( H >=X STEP 
ALPCLNIli l^sALPIl > + CHNGCl > 

DELCUMIH >=0EL(1 H^CHNG(2) 

K=0 

IF (NCLAS1«LE»0 J GO TO 180 
OU 170 Xfil vNCLASl 

IF IEIASKD.EQ.TFLAG) go to 170 

FisK+l 

DUMMVIKJ = eiASlI X »*CNNG<Na + (t » 

170 CONTINUE 

180 IF (NCLAS2»LE«0} GO TO 200 
DO 190 1*1 *NCLASa 

IF leiASai n .EQ.TFLAGJ GO TO 190 
K=K*1 

OUMMV(K)=BI A52( 1 > +CHNG ( N24K ) 

190 CONTINUE 

200 IF (K.L£*0» GC TC 300 

CALL INCUR? <CUMMY»CUMMV1 «15«K»e«3) 

DO 210 1*1 ,K 

' 210 eitCUMtI*Il>-=OUHMYl(l) 

60 TO 300 
220 Co 240 

ARGCUM4 l-l>cARGCUMU ) 

AlPCUM(I-1 )^ALPCUM( I ] 

IF (K«L£*0) GO TO 240 
DO 230 J*i»K 

230 BllCLFIJ* X-1 >^dllCUMlU il > 

240 CONTINUE 

ARGCUHI2& )=t STEF 
ALPCUNC21 } =ALF(t) tCHNGt 1 ) 

CELCUM(21 }>D£L( 1 )FCHNGI2> 

K=0 

IF INClAS}*LE»OI go to 260 
DO 250 l*lfNCtAS| 

IF (eiASt ( I) •EOaTFLAG) GO TO 250 
K=KFl 

0UMM¥(K>»=BI ASl (n+CHKGCN2 + K) 

250 CONTINUE 

260 IF (NCLAS2*LE«OI GO TO 280 
Co 270 I=1«NCLAS2 

IF (B1AS2< l)«EQ«TFLAGr GO TO 270 
KsK^-l 

OUMHY (K)t=ieXAS2( I ) -FCFNG ( N2-4-K } 

270 CONTINUE 

280 IF (K«l£«0) GC TC 300 

CALL INCQRE (OUMH V «DUMIb«y 1 »1 5 .K . 8 *3 } 

CO 290 1 * 1 .K 

290 eiiCUM(l%21) =DLH^'YI< I I 
300 ISZE^Ii 

IF USzEfcGT.an ISZE*21 

CALL PTSIZE f ISZE*ALPCUM iOElCUM.ARGCUMI . 
CALL PTSIZE (10S«dllCOM2 
CALL CHECK {•GSTATAM 

CALL PTSIZE <21 • ALPCUM.DELCUH* AP6CUM) 
AVG*0*0 

IF (10C«NE«1I GO TO 470 

KCLAS=NCLASl 

DQ 320 1*1 f 2 

i IF <1«EQ*2) NCLAS=NCLAS2 
IF (NCLA^*LE*0J GO TO 320 


OOOtSOOQ 
000ISC5C 
00615100 
00015150 
OOCl 52 OQ 
00015250 
00015300 
00015350 
00015400 
00015450 

00 01 ssoc 

O0C26550 
00015600 
Q001565Q 
0OCI5700 
00015750 
00015600 
OOQ1565Q 
00015900 
00015050 
00016COO 
00016050 
00016100 
00016150 
OOOl 6200 
QOC16250- 
00016300 
CCC16350 
00016400 
00016450 
OO016SOO 
00016SS0 
-OO0166C0 
CCC166S0 
OGC16TOC 
Q0016750 
-00016600 
00616850 
OOCl 6900 
OODS69SO 
00017000 
00017050 
00017100 
00C17150 
00017200 
000172S0 
00017300 
00017350 
O0C174OO 
00017450 
coot 7* OO 
00017550 
DC Cl 760 0 
00017650 
00017700 
00017750 
00017800 
00017650 
OOOl 7900 
0CC17950 
oooiaooo 

0CC18C50 

OG'olSiOQ 

0CC18150 

00018200 

00016250 

0001 8300 
00016350 
00418400 
00018450' 

oooiesQo 

ooQiesso 

00C18600 

00016650 

00016700 

00018750 

00016800 


C-83 



ISN 0X7.2 
ISN 0123 
[SN C124 
ISN 012f 
ISN 0126 
ISN 012? 
ISN 0125 
ISN 013C 
ISN Cl 31 
ISN 0422 
ISN C123 
ISN 013S 

ISN Ui-'.7 

ISN C126 
ISN 0125 
ISN 0140 
ISN 0142 
ISN 0144 
ISN 0JA5 
ISN 0146 
ISN 0146 
ISN 0145 
ISN 0150 
[SN 0151 
ISN 0152 
ISN 0164 
ISN Oise 
ISN CIS? 
ISN 0156 
ISN 0155 
ISN 0161 
ISN G162 


ISN 0164 
ISN 0166 
ISN 0167 
ISN 0166 
ISN 0170 
ISN 0171 
ISN 0173 
ISN 0174 
ISN 0176 
ISN 0177 
ISN 0176 
ISN 018C 
ISN 0162' 
ISN G1E2 
ISN 0164 
ISN OlES 
ISN 0166 

ISN oiee 

ISN 0190 
ISN 0151 
ISN 0153 
ISN 0154 
ISN 015S 
ISN 0156 
ISN 0157 
ISN C195 
ISN 0201 
ISN 0202 
ISN 0203 
ISN C204 


ISN 0206 
ISN 0206 
ISN 0209 
ISN 0210 
ISN 0211 
ISN 0212 
ISN 0214 
ISN 0215 
ISN 0216 
ISN 0?17 
ISN 0216 


CO 31 0 J^l *NCLA$ 

310 AVGHHCU^ J?-0# 

320 CONTINUE 
AUM^O 

NSET^O 

IF INCLASl •LE*0J GO TO 3S0 
DO 340 1*1 « NCLASl 
Jl=lFRSTl ( I > 

NsNTVPEI ( I J l-1 
00 330 J=Jl#N 

IF ITIM6U Jl .eO^TFCAO GO TO 330 
IF OkGHTIIJ) •LT.0#O> GO TC 330 
AvGKriud-*! ) — A •GririOi 1 • 1 AuS * rinu i t I 
M;M=sNUM-»-l 
330 CONTINUE 

IF (KUM*NE*0) AVGRHO U * I ) VGRHC( 1 ♦ I >/NUM 

IF (AUM.NE*0> N3F.T=NSfcT*l 
340 CONTINUE 
3S0 NUM=0 

IF <NCLAS2*LE*0I GO TO 360 
CO 370 I«1.NCLAS2 
J1*IFRST2( I I 
N=NTYPE2<I l+Jl-l 
00 360 

IF <llME2t J] .eC*TFLAG) GO TO 360 
IF 1I^GHT2IJ> .CT,Q*0) GD TO 360 
AVGRF012.1 ) = AVGRhO(2.I }tA6S ( RHp2 ( J ) I 
FUM=NUM4-i 
360 CONTINUE 

IF ( hUM«NE*0 I AVGRH0<2 « I I «AVGRH0( 2« I )/NOM 
IF (NUN.NE.O) NSET=NSET*1 
370 CONTINUE 
C 

c RESIDUAL EDITING* 

C 

3B0 SUMAV^O* 

IF INCLAS1»LE»0} go TO 40 0 
CO 390 J*l»NCLASl 

IF IH»RT*GT.20) AHITE (IOUT#530) J * AVGRHOI I . J ) 

390 £UHAV-SUMAV«>AVGRHO(| »J| 

40C IF (NCLAS2.LE.0) GO TO 420 
DO 410 J«1 .NCLASS 

IF <ItaRT*GT*2Ql WRITE 1I0UT*540| J » A VORHO I 2 • J > 

410 £UMAY-5UMAV+AVGftMO|2,J) 

420 AVG=SUMAA//NSCT 

IF <1W«T.GT.20) WRITE <IOUT,550> A VG . SOHA Y * SMULT 
IF INCLASl.LE*0*OR*SMULT.tE.O) GO TO 440 
DO 430 1*1 .NCLASl 
JI=lFRSTl ( I ) 

K=NTYFEt< I IFJl-l 
DO 430 J*Jl«N 

IF <ABS(RH01 ( J>)*GT*SMULT4AVG> WGHTl ( J ) GHTI ( J > 

IF iXWRT*GT*2n WRITE I10UT,560) J.RHOX(J) 

430 CONTINUE 

440 IF (NCLAS2*LE»0.0R*SHULT.LE*0) GC TO 460 
po 450 I*|*NCLAS2 
Jl=IFRST2( I) 

N*NTVPE2U 1 + Jl-l 
DO 450 J*J1 * N 

IF <AfaS(Ri>Ha2( Jn.GT.SMULTAAVG) 4GHT2 ( J )»-WGHT2< J J 
IF (lWRTbGT*2l) WRITE UOUT.570) J.RFOEUI 
450 CONTINUE 
460 CONTINUE 
470 CONTINUE 

IF (IOERaNE*!) go to 520 
c WRITE OUT THE DERIVATIVES IF CCWPuTEO* 

C THE GCONESR EDITING OPTION CAN BE ACOED AT THIS POINT IF DESIRED* 

IF INCLASI*LE*0) GO TO 490 
CO 4E0 1*1. NCLASl 
JI = 1FRSTU I ) 

N=NTYPEI(I )+ Jl-l 

4a0 WRITE IIOUT*580) < SCCEFl < 1 ♦ J ) i J- J1 *N ) 

490 IF <NCLAS2*LE*0) GO TO 510 
DO 500 1*1 .NCLAS2 
J1=IFRST2( I) 

^=NTYPE^< I )4Jl-l 

500 WRITE UOUT.SSO) ( 5CGEF2 ( 2* J ) « J& « N ) 

510 CONTINUE 


ooQieeso 

00012900 

00016950 

00019000 

0CC19C50 

00019100 

OOOI91SO 

00019200 

000192S0 

OOC193PO 

00019350 

0C0194Q0 

00019500 
0001 9550 
00019600 
CQC19650 
00015700 
00019 750 
00019800 
ooQioeso 
OOOl 9900 
00019550 
OOC20000 
Q0G20059 
00020100 
C0020150 
00020200 
00020250 
00020300 
00020350 
O0C2O4OQ 
OOC2O450 
00020500 
00020550 
00020600 
00020650 
Q002C700 
0OC2O75O 
00020800 
OOC20650 
00G20900 
0002C950 
00C21O00 
410021050 
00021100 
00021150 
00021200 
00621250 
0002I3UO 
00021350 
00021400 
00021450 
OOC21 500 
00021550 
0Q62I600 
00C21650 
00621700 
00021750 
00021800 
00021 eso 

00621900 

00021950 

00622000 

00Q22C50 

00622100 

00022150 

00022200 

C0022250 

00622300 

00022350 

00022400 

00022450 

00022500 

00622550 

00022600 

000226SQ 

O0G22700 


C-84 



ISN 0219 
ISN 0220 
ISN OiH 

ISN 0222 
ISN 0 223 
ISN 022< 
ISN 0225 
ISN C22« 
ISN C227 
ISN 0226 


EPO CONTINOC 

CALL CH6CH (•OSTATl*) 

PETUKN 

S30 FORMAT I* AVSPhOI I > • . It ( • ) s ‘iFlO.S) 

540 FORMAT (• AVGRHQ tZ . • , 1 1 , • ) = •.FIO.S) 

550 FORMAT (• AVG = •. FIO.S,* SUMAV = '.FIO.S,* SMOLT = *,F10.a) 
560 FORMAT (• RHOl C *. > 1 5 . * I *= '.FIO.S) 

570 FORMAT <• RHC2I * . 1 5 . • )= *,F10.5) 

580 FORMAT (• *,tOEtS.4) 

END 


OOC22750 

00022800 

oooppeso 

00022900 
0C022950 
00023000 
0CC23O5O 
000231 00 
00023150 
OOG232O0 
00023250 


C-B5 



COMPILER OPTIONS 


C 

c 
c 
c 
c 
c 
c 
c 
c 


c 

c 

c 

c 

c 

c 
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c 
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c 
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c 

c 

c 

c 

c 
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c 

c 

c 

c 

c 

c 

c 
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c 
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c 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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NAME- MAI N*0P7*01 • L lNf=CNT=60 iS I ZE = OOOOK » 

SQURC£»ei3Cf>lC *N0LIST *NODECK iLOAO* map *NUED IT « 10 * XREF 

qoqgcoso 

>!>fi0000150 
*CQCCIC200 

^coeooasQ 
♦oooooaoo 
*00000350 
*00000400 

<tALL FINAL2<GtfORKO *ALP»DELiA[«DltQlASl aElASI »BIAS2If*OO0CC45O 
elAS2*RMOSTl »RH0ST2*NTTPE1 tNTVPE2*NCClF . *OOCC0500 

*00000600 
40QGC0650 
*00000700 
*00600750 
*00000600 
*Q0eCC£50 
*00000900 
*00000950 
*00601.000 
*00001050 
*00001100 
*00001150 
*00601200 
*00001250 
*00001300 
*00001330 
*00001400 
*00001450 
*00001506 
*00901550 
*00001600 
*00001650 
*00601700 
*00001750 


SLBPOOTINE F1NAL2 


CALLING SEGOSNCE 


DESCPIPTICN 

FINALS converts ThE INITIAL AND CJRfiENT ITERATION 
VALUES CF ThE STATE VECTOR INTO ALPHA-NUMERIC 
CHARACTERS FOR THE SUMMARY DISPLAY 

CCMMON AREAS REFERENCED 

NONE 

external REFERENCES 

tNCDRE tPTSI^EtSQRT 

STORAGE RECUIREMENTS 

4224 BYTES OF CORE STORAGE 


VARIABLES 


TYPE 


DESCRIPTION 


GMORKO 


DEL 


0EAS1 


ax ASl 


eiASEI 


BIAS2 


RHQSTl 


R*4 


R*4 


R«4 


R*4 


*0RK ARRAY *H£RE AlPFA-NUMERIC 
equivalents of previous and CUR-*0060ia00 

RENT VALUES OF THE STATE VECTOR *00001€5a- 
ARE STORED *00601900 

*0000196.0 

RIGHT ASCENSION PCUYNGWlAL COEF-*C06020DO 
FICIENTS* IN OEGREES *00002650 

*00002100 
*00002130 
*00002200 
*00602250 

INITIAL RIGHT ASCENSION POLYNO- *00602300 
MIAL COEFF iCIENTSt IN DEGREES *00602350 

*00602400 
*00602450 
*00002500 
*00002550 
*00602600 
*00002650 
*00602700 
*00602750 
*00602500 
*00002650 

INITIAL BIASES FDR EACF TYPE OF *00002900 


DECLINATION POLYNOMIAL COEFFI- 
CIENTS* IN DEGREES 


INITIAL DECLINATICN POLYNOMIAL 
CQEFFICIENTSt IN DEGREES 

INITIAL BIASES FDR EACH TYPE 
OF CLASS 1 DATA* IN DEGREES 

BIASES FOR EACH TYPE OF CLASS I 
DATA* IN DEGREES 


CLASS 2 DATA* IN DEGREES 


BIASES FOR EACH TYPE OF CLASS 
DATA* IN degrees 


CLASS 1 STATISTICS 
(FOR RHOSTKl • I )-RHOSTl (3* 1 1 
SEE DCCONS PROLOGUE) 

RhOSTl(4»l) ^ MEAN RESIDUAL 

FOR TYPE 1 OATA *00003300 
RhOSTKS*!) - STANDARD OEVIA- *00063350 
TION FOR TYPE X *00003400 


*00002950 

*00003000 

*00003050 

*00003100 

*00003150 

*06603200 

*00003210 

*00603220 

*00003250 


RHOST2 


OATA 

CLASS 2 STATISTICS 

(FOR RHGST2( 1 • 1 )-RN0ST2(3» I ) 

SEE DCCONS PROLOGUE 


*00003430 

*00603500 

*00003550 

*000035*0 

*00603570 


C-86 



c 



flHQST2(4«l) - 

MEAN RESIDUAL- ' 

*00003600 

c 




FOR TYPE I DATA 

*00003650 

c 




RhQST2(5. I ) - 

STANDARD DEVIA- 

•00003700 

c 




TION FOR TYPE 1 

*00003750 

c 




DATA 

*00003600 

c 





*00003650 

c 

NTYPES 

1*4 1 

MUMSER of C1.AS5 

I DATA TYPES 

*00003900 

c 





*00003950 

c 

NTYPE2 

1*4 1 

NUMBER OF CLASS 

2 DATA TYPES 

•00004000 

c 





*00004050 

c 

NCOF 

1*4 1 

number of polynomial COEFPlClENTSOOe04iOB 

c 



FOR ALP ,AN0 DEL 


*00000X90 

c 





*00004200 

c 

lAU-0 

1*4 1 

ALLOCATION SIZE 

FOR CUORKO ARRAY*0000<t250 

c 



<HUST BB 224 OR 

01 

*00004300 

c 


■ 



*00004350 

c 

COVAfi 

1*4 I 

COVARIANCE MATRIX FOR STATE 

•0OCC4400 

c 



VECTOR ELEMENTS 


*00004450 

c 





*00004600 

c 

NC 

1*4 I 

NUMBER OF ELEMENTS IN THE 

400004SSO 

c 



STATE VECTOR 


*00004600 

c 





*00004650 

C ' 

REVl S<O^S 




*00004700 

c 





*00004750 

c 


1. i-m PEAKES 

(IS JULY 10731 -- ORIGINAL CODING ANO 

*00004600 

c 


TESTING 



*00004650 

c 





*00004900 


C *00004530 

c*** ****************************** *******«*****«»**«*********«**********oo«osooc 


ISN 

0002 

SUBROUTINE FINALS (GWORKO lALP^DELt AI »01 « B i ASX • B I ASi »BZAS21 .B XAS2 

•ROOOOSOSO 



IMOSTI •RH05T2*NTVPF1 ♦NTYPE2«NC0F • IALLO^CDVAR 

»NC) 


00005100 

ISN 

0 003 

DIMENSION ALP (NCOF ) •DEL(NCOF) .AKA 1 • Di( 4 1 « 31 AS I ( NT YPEl > • 

00006150 



1 BIAS! (NTYPEl 1 »eiAS2I (NTVPE2) • 51 AS2 K NT YPE2 ) 


00006200 

ISN 

0CC4 

OlMENSlGhi RHOSTKStNTVPEl) » RHQS 1 2 ( 5 • NT YPE2 > 



00005250 

ISN 

0C05 

REAL*8 BLANKB*OUMMY( 30) • B1 A ( 30 } , TAl »T AF « TO I 

.TOF,EHA.EHO.»TT<24)i, 

OOC0530d 



1 G*QRK0(7*32> 



00005350 

ISN 

0CC6 

RP.AL44 COVAR(KC«NC) 



O0C05400 

1 SN 

0CC7 

REAL*3 XBI A3/9999999./’ 



00005450 

ISN 

occe 

DATA 0LANK8/'* ♦/ 



OOOG6SQO 

I SN 

0CC9 

DATA 2ERQ/M0) ■/*0NE/'"(1) ■/•TVO/* 

(2) •/. 


00005550 



1 THRESX*C3) •/ *TYPE/*TVPE «/* 



OOOOS600 



2 QNEl/« 1 •/•TfcOl/* 2 •/•ThREEl/* 3 •/ 

t 

00QGS650 



3 FOUR!/* 4 '/«FIVE/* 5 •/» 



00005700 



4 01F€D/<D1FEDRAL*/*EPR0R/« est« •/♦angles/* angles 

•/♦ 

00005750 



5 CONE/*- CONE •/ •CLASSZ/* CLASS 2 •/* CL ASSl/ • CLASS 1 

•/. 

00005800 



6 INITIL/? I NITIAL*/ .FINALS/* FINAL •/.AALP/* ALPHA 

*/. 

00005650 



7 ODLP/* DELTA */.feIAS/» BIAS •/♦MEAN/* 

MEAN */♦ 


O0OC590O 



a RE£D/*PES10y>L»/.RMS/* RMS •/ 



OOOCS9SO 

I 3N 

QOXC 

DATA ACC/ •ACCURACY*/ 



ocec6ooo 

ISN 

00X1 

REAL46 ZERO'^CNE* T VO . THREE , TOT ALfT VPE , DNEl * 

TMOl tTHREei 

f POURl# 

00006C50 



1 FI VE • SX X tCLASSl tCLASSZ *OlHED« ERROR# ANGLES 

.CONE 


00006100 

ISN 

00X2 

REAL4Q INI TIL #F 1 NALS • AALP . DDLP. BIAS t MEAN • PESO « RMS ♦ ACC 


ooooeiso 

ISN 

0012 

DATA lNlT/0/ 



00006200 

ISN 

0014 

IF (INIT»NE#01 GD TO tlO 



00006250 

ISN 

0016 

INIT=1. 



000 C6 300 

ISN 

0CX7 

CO 100 I«l*7 



00006350^ 

ISN 

0CX6 

DO S 00 Jfcl #32 



OOCO640O 

ISN 

00X9 

too GWORKOI !<♦ J) = BLANKB 



C0006490 

ISN 

0C2C 

G*0RN0(1«4 }=ZBRG 



00006500 

ZSN 

C02X 

GWORKO(i.«5)^CNE 



00006550 

ISN 

C022 

GW0RK0(1.«6) = T4G 



00006500 

ISN 

C023 

G WORKO ( 1 • 7 }s THREE 



00006690 

ISN 

0024 

GWORKOU.«8)=cBLANKB 



00006700 

ISN 

0025 

GW0RK0(lil2J=TYPe 



OOOG6750 

ISN 

0026 

GWUftK0(l#l5)*CNEl 



OOC06600 

ISN 

CCZ7 

GWORKOCt «X6)^TM01 



00GC6S5C 

ZSN 

ooae 

GW0RK0(1:.171?THREE1 



00006900 

ISN 

CC29 

GWORKOI 1 4 1 8 >=FCUR1 



-OOOC6GSO 

ISN 

0030 

G*ORK0( 1 ♦! 9) spl VE 



00607090 

ISN 

0031 

GMORKOd t241 -TYPE 



00007050 

I SN 

0022 

G*ORKO(1. 27)=CNEt 



00QC71Q0 

ISM 

0032 

GtaORKOd ♦28 )=TaQ1 



0OGC715O 

t SN 

0034 

GWORKOC l.*29 1 «THREE 1 



OOC0720Q 

ISN 

0035 

GWORKOd •30)=FCURl 



00007250 

ISN 

C036 

GWOHKOd .31 »=Flve 



00007300 

ISN 

0C27 

gworko(2«1)=ikitil 



00007350 

ZSN. 

0036 

G*ORKO(2i«2>3AALP 



OOC074OO 


C-87 



ISN 

002^ 


GWOPKO(2«l 01 ^CLASSl 


• QOC07450 

] SN 

Q04C 


GWORKO(2«12)=XNIT1L 


OOC07SOO 

ISN 

0041 


GVKORKOia>*13)=eiAS 


00007550 

ISN 

0042 


OWURKO(2>*22 > =CLASS2 


OOCC7600 

ISN 

CQ43 


GttORKOl 2^241 isINITiL 


00007650 

ISN 

0044 


GwORkO( 2*25) eelAS 


O0G077O0 

ISN 

C04S 


Gtt0RK0C3*l l-Fl^ALS 


000 C7750 

ISN 

oo4e 


GINORKOI 3*2I-AALP 


OO0C78OO 

1 SN 

0047 


C kvOR K 0 ( 3 1 0 » sCC NE 


OOOC765C 

ISN 

0048 


GWURK0O.12) =F1NALS 


0OCC79OO 

ISN 

QC4^ 


GWaRKOI3»13) =S1AS 


OOOC7950 

ISN 

0050 


GWORKOI 3*22)=0lHec 


QOOC&OOO 

ISN 

0051 


GW0RK0t3*24)=FINALS 


uu« C6G5U 

ISN 

0052 


Cl)i(ORKOI3.t25J =aiAS 


QOC0610Q 

ISN 

005 3 


GkiORKOI4«l 


00C08150 

X5N 

0C54 


GW0RK014«2>=ACC 


00006200 

ISN 

0056 


GW0RK0<4»10»=ANGUES 


0OOC625O 

X SN 

0055 


G WURKO ( 4 » 1 2 } «ERRGR 


QOC CB300 

ISN 

0057 


GW0RK0l4«13}=sACC 


00066350 

ISN 

oose 


G»<3RKO(4*22l ^ANGLES 


00006400 

ISN 

0C59 


OwORkO(4«24> -ERROR 


000C6450 

ISN 

0050 


GI«0RK0(4*25) =ACC 


00006500 

ISN 

QO£l 


6 WOR KO ( 5 . 1 ) = I M T I L 


OOCC6550 

ISN 

CD52 


GW0RK0(5*2)=DD1_P 


O0CC66O0 

XSN 

0063 


G1»ORKO(5«12>-KEAN 


00008650 

ISN 

0064 


GwaRK0(5.13}«RESD 


00006700 

ISN 

C065 


Gtt0RK0{5»24> sft*SAN 


0Q0C6750 

ISN 

006€ 


Q W0RK0<5»2S>=RESD 


00008600 

ISN 

cce? 


G «rOR<<C 0 1 6 « 1 1 •= F I K A LS 


00006650 

1 SN 

cofie 


GttORKO(6«2 )=>CDLP 


OOOC09OO 

ISN 

0069 


GW0RK0<6«12J=RIVS 


O00C6950 

ISN 

CC7C 


GteORKO<6«S3l =R£SD 


00009000 

I SN 

0071 


GW0RK0(6«24)=RMS 


OD0C905O 

ISN 

0075 


GW0RK0I6«2S)^RESD 


00009100 

ISN 

0072 


GW0RK0(7.1 )=ERROR 


OOC0915O 

ISN 

0074 


GWORKOC7*3 J-ACC 


00009200 

ISN 

0C7S 

11 0 

J-O 


OOOQ92SO 

ISN 

0 07 6 


00 lao i*=i.4 


00009300 

ISN 

0077 


IF tl.GTlNCDF) GO TO 130 


00009350 

ISN 

0079 


J=J+1 


00009400 

ISN 

0C£C 


ATT< J)=AI U ) 


00009450 

ISN 

GCEl 


JsJi-l 


000G950O 

ISN 

0062 


ATTIJ>=ALP( I ) 


000 09 550 

ISN 

0C53 


J=J+1 


00009600 

I SN 

0054 


ATT( J)=SQRT< COVARI 2*1-1 *241-1) ) 


00009650 

I SN 

0065 


J = J41 


00009700 

ISN 

C066 


ATT( JJ^D4 ( X ) 


OOOC9750 

ISN 

0 067' 


J=J*t 


00009600 

ISN 

ooee ■ 


ATT( j>=oec< I > 


00009650 

ISN 

0069 


J=J4l 


00009900 

1 SN 

CC90 


ATT< J>=SaRT<CGVAfl<2*I*2*n ) 


00009950 

ISN 

0C91 

120 

CONTINUE 


00010000 

ISN 

0 092 

130 

I = I*J 


C0010050 

ISN 

0093 


CALC XNCQRE (ATT *DUMM Y *1 9 « X • 6* 3 > 


ooeioloo 

ISN 

QC94 


DO ISO U*=l*4 


OOQlQtSO 

ISN 

ocss 


GO ISO Xt2,7 


00010200 

XSN 

oose 


IF (J.GT-NCOF) GO TO 140 


000102SO 

|SN 

0096 


GWORKOd * J+3)=OUMMY( I~l + ( J-1 )*6) 


00910300 

ISN 

0099 


GO TO 1^0 


00010350 

ISN 

0100 

t 140 

GWORKOI J43 I^aLANKB 


OOelQ4<K} 

ISN 

0101 

ISO 

CONTINUE 


00010450 

ISN 

0102 


GW0RK0(2.*a)-eLANKa 


4)0010500 

ISN 

0103 


GWORKO(3»a>=BLANKd 


000105SO 

1 SN 

0104 


GW0RK0(4*6)=9LANK6 


00010600 

ISN 

0105 


GW0RK0(5*a)~aLANK8 


000106SO 

XSN 

0106 


GWORKO(6v*a)sBLANKa - 


. 09010700 

ISN 

0107 


GWaRK0(7.6)-8LANK6 


00010750 

ISN 

OSes 


v=o 


00^10809 

XSN 

Q109 


IF (NTYPE1*LE*0) go to 170 


cooloeso 

ISN 

0111 


00 160 IA1«NTYPE1 


ooot 0900 

XSN 

0112 


J-Jf-t 


0Q010950 

ISN 

0113 


eiA( J>s0*OO - ' 

.... . 

00911^9 

ISN 

0114 


IF (SIASl (11 *LT*XB1ASI 6 X A( J )=B I ASI i X ) 


oooiicso 

ISN 

0X16 


J=J4l 


4)09dlO9 

ISN 

Q117 


eiA< j)=o#oo 


OOQlllSO 

ISN 

01X6 


IF (eiASt(l>«LT*X0IASJ eiA( J)«S1ASI( XJ 


00011209 

ISN 

0120 


J=J41 


00011250 

tSN 

0121 - 


etA4ii>«O*I>0- 


-00012200 
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15N 



IF (BIASI (l>«tT»XBlASJ El A( J) = SCHT (CQVAR< 2*NCOF^ I . 24NC0F + in 

00011350 

ISN 

0124 


J=J^l ■ 

00011400 

tSN 

0I2S 


exAt ji=RHCSTH4tn 

GQC11450 

ISN 

0120 


j=j*i 

00011900 

ISN 

0I£7 


6IA( J)«RHQST1{5«1 } 

oooaisso 

ISN 

0128 

160 

CONTINUE 

00011600 

ISN 

C12S 


IF (NTYPE1»G£*6) GC TO 190 

00011690 

ISN 

CX21 

170 

NS8IAS*NTYPE1+1 

00011700 

tSN 

0132 


00 180 IK=NSeiASiS 

00011750 

ISN 

0133 


00 180 XL=1»* 

00011600 

ISN 

013^ 


J*J^l ' 

00011650 

ISN 

0|3« 


BIA(J)=0. 

ooelisoQ 

ISN 

0130 

180 

CONTINUE 

00011950 

Ksn 

0137 

190 

CONTINUE 

ooet 2000 

ISN 

0138 


t=2S 

00012050 

ISN 

C13S 


CALL iNCOftE (dXAfOUHFY»15*lt6»3 1 

000121QC 

ISN 

G14C 


00 200 J^l .5 . 

00012150 

ISN 

0141 


DO 2C0 I*=2*6 ^ 

00012200 

ISN 

0142 


G«iORKO(l<.J+14>=OUHMV(l^|-e< J'-l >451 

00012250 

ISN 

0143 

200 

CONTINUE 

00612308 

ISN 

0144 


J-0 ' 

QCC12350 

ISN 

014S 


IF tNTYP62.Le#0> GO TO 220 

00012400 

ISN 

014? 


DO 210 1^=1 *NTYPE2 

00012450 

! SN 

0148 


J=J+l 

00012500 

ISN 

014S 


E1A(J)=0*00 

00012S50 

ISN 

OlSC 


IF (B1AS2I (I I.LT^Xei AS) 8IA( J ) -EIA52 II I ) 

000126QO 

ISN 

0i£2 


J=J*l 

00012650 

ISN 

.0133 


eiA(j>=o*oo 

00012700 

ISN 

0134 


IF (BtAS2<n«LT*X61AS) 8 1 A( J >-8 I AS2 ( 1 1 

OOQ127SO 

ISN 

0186 


J=sj*x 

00012QQO 

ISN 

0157 


E1A(J)«0«D0 

00012850 

ISN 

Oise 


IF (6IAS2(1J.LT.XBIASI 81 A( J )=SQRT I CD VAH( 2*NC0F+NT VPE1+ I . 2*NCOF*NTOOOl 2900 



lYPEl^D) 

000129SO 

ISN 

€160 


J=J^1 

ocei 3000 

ISN 

0161 


8 1A(U>«RHQST2<4» I > 

00013C60 

ISN 

0162 


J=J+l 

000131Q0 

ISN 

0163 


aXAl j)=RHOST2(5*1) 

€0013150 

ISN 

0164 

210 

CONTINUE 

00013200 

ISN 

0163 


IF (KTYPE2*GE*6> GC TO 240 

00Q13250 

ISN 

0167 

220 

N5B1AS=NTYPE2+1 

OOC1330O 

ISN 

0166 


DO 230 IK=NSB1AS»5 

00013350 

ISN 

0169 


00 230 IL=l . 5 

00013400 

ISN 

C17C 


J=U+1 

QOCl 3450 

ISN 

0171 


£lA(J)-0« 

0001 3500 

ISN 

0172 

230 

CONTINUE 

00013550 

ISN 

0172 

240 

CONTINUE 

00013600 

ISN 

.0174 


1=25 

00013650 

ISN 

0175 


CALL INCORE ( SIAtOUMMY.lS.l iSf 3) 

00013700 

1 SN 

C176 


CO 250 Jtel *5 

00013750 

ISN 

0177 


00 250 1*2*6 

00013800 

ISN 

0178 


GUORKOI I f J«-26)=0UMMY( 1 -1 +< U-1 ) *5) 

00013850 

ISN 

0179 

250 

CONT INUE 

OOC139QO 

ISN 

CISC 


CALL PTSIZE 1224.GW0RK0) 

00C139S0 

ISN 

0181 


RETURN 

00C14000 

ISN. 

0182 


SNO 

00014CSO 
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COMPILF.R OPTIONS 


NAMI%= MAlK*OPT»ai*L lNcClsT= 60 *S JZe=OOOOK.» 

souses. ESCOtC. NOLI ST. NOD<=CK. LOAD. MAP.NQEO IT, IC.AREF 


QOC00050 




c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
. c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
t 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


StSROUTlNE GOCCCN 
CAl-LlNG S^GCENCE 


OESCRIPTICN 


variaeles 


NAME 


I ALLA 


I ALLS 


IFRSTl 


iFRSTa 


Nt VPEl 


KTYPES 


RHOl 


RH02 


GdkORKA 


QiiORKS 


tALLO 


AqOQOO&SO 

Aoocooaoo 

ACOOGOaSO 
*00000300 
*00000350 
*00000400 

CALL GOCCQNtlALLA.lALLS. IFRSTl, lFH5T2.NTTPEI.NTYPEa. *00000450 

RMOl ,RHQa,GilQRK4,<5l«0RK5.IALL0l *00000500 

*COCCOS50 
*UUu00g0C 

«ooocoesc 

*00000700 
*00000750 
*00000600 
ACOCCOESO 

«oo«coooo 

*00000550 
*0CC010Q0 
*00001050 
*00001100 
*00001150 
*00001200 
*00001250 
*00001300 
*00001 350 
*00001400 
*00001450 
*00001500 
*00001550 
*00001 600 

ALLOCATIGN SI2E OF 6*a«K4 ARRAY *00001650 


GOCCGR STORES THE CCMPUTEO RESIDUALS IRTC KCRK 
ARRAYS FOR PLOTTING AND CALLS THE RSAO RELATED 
TABLES TO DISPLAY TH£ PLOTS 

CCMMCN AREAS referenced 

DCSOPT, GCNl 

EXTERNAL REFERENCES 

CHECK. ,PT SIZE 

storage reouirerents 

1786 BYTES QF CORE STORAGE 


TYPE 


IZO 


description 


1*4 


1*4 


1 *4 


1*4 


1*4 


1*4 


n«4 


R*4 


R*4 


R*4 


1*4 


allgcation size CF G|»0RK5 


NUMBER OF QBSERYATICNS OF EACH 
TYPE QF CLASS 1 DATA 

NUMBER OF CSSERVATIONS QF EACH 
TYPE OF CLASS 2 DATA 


residuals for class 
defined as observeo 
calculated 


1 data 

MINUS 


CCHMON AREA VARIABLES USED IN ROUTINE 


NAME 


CPTION 


TYPE 


1*4 


ORIGIN 

DCSOPT 


>00001700 
ARRAY *00001750 
* 00001 aoo 

POINTERS INDICATING STARTING *00001650 

POSITIONS FOR EACH TYPE CJF CLASS*OOOOIROO 

1 DATA IN TFE RhCl ARRAY *COOOH50 

•00002000 

POINTERS INDICATING STARTING *00002050 

POSITIONS FOR EACH TYPE OF CLASS* 00 C 021 00 

2 DATA IN ThE RNGZ ARRAY *00002150 

*00002200 
*00002250 
*00602300 
*00002350 
*00002400 
*00002450 
*00002500 
*00002550 
*00002600 
•Q00026SO 
*00002700 
•00002750 
*00002800 
*00002650 
*00002400 

FORK ARRAY FOR STORAGE OF OBSER-*000 02950 
VATIDN NOMeeRS FOR EACH CLASS *00003000 
AND TYPE QF DATA *00003050 

•00003100 

WORK ARRAY FOR STORAGE QF RESIO-*00003 1 50 
UALS FOR EACH CLASS AND TYPE OF *00003200 
data *00003250 

*00003300 
*00003350 
*00003400 
*00003450 
*00003500 
*00003550 
*00003600 
*00003650 

FLAG ARRAY FOR PLOTTING OPTIONS *00003700 
=0, 00 NOT PLOT 
«1, PLOT 


RESIDUALS FOR CLASS 2 DATA 
DEFINED AS OBSERYED MINOS 
CALCULATED 


ALLOCATION SIZE QF GHORKO 
(MUST BE 224 OF 0> 


DESCRIPTION 


•OO0O37SO 

*00003800 
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ISN 0004 

TSN 0CC2 
ISH OQCA 
ISN CCCE 


ISN OOOC 
ISN 0CC7 

ISN occe 

ISN OCOS 
ISN ecu 


C 


c 

FINISH 

1*4 

OeSUPT 

flag for 

TERminaTINS Pi-UT 

c 




OPT ION TABLE ‘ 

c 




= 0* OG 

•'NOT TSRmINATE 

c 

c 




= 1, TfeRMINATe 


finald 

1*4 

CCSOPT 

FLAG FOR 

OISPLAVING SUMMART 

c 




OISPLAV 


c 




= 0* DO 

NOT DISPLAY 

c 




=1. DISPLAY 

c 






c 

c 

NCLASl 

1*4 

GCNl 

NUMBER OF CLASS 1 CATA TYPES 

c 

c 

NCLAS2 

1*4 

GCNl 

NUMSER OF CLASS 2 DATA TYPES 

c 

ICC 

1*4 

GCNl 

residual 

STORAGE IKCICATOP 

c 




= 0* 00 

NOT STCRt RESIDUALS 

c 




=!♦ STORE RESIDUALS fCft 

c 

Q 




PLOTTING 

c 

Q 

data TRAN5I«ISS1CN 




c 

c 

NAMC 

PEAD/WRITE/CFCINT 

DESCHIPTIUN 

c 

DRESJ 1 

cpoint 


RESIDUAL 

PI.UT FOP CLASS 1 TYPE 

c 

c 




1 data 


c 

0fiES12 

CPCINT 


.RESIDUAL 

Plot foh class i type 

c 

c 




2 CATA 


c 

DRES13 

CPU I NT 


residual 

Plot for class j type 

c 




3 CATA 


c. 






c 

OftEStA 

CPOINT 


RES IOUAl 

PLOT FOK Class i type 

c 

c 




4 DATA 


c 

OPES15 

CPCINT 


residual 

Plot for class i type 

c 




5 CATA . 



C 


c 

c 

c 

DRES21 

CPOINT 

residual 

1 CATA 

PLOT 

FOR 

CLASS 

2 

TYPE 

c 

c 

c 

ORES22 

CPOINT 

RESIDUAL 
?. DATA 

PLOT 

FOR 

Class 

2 

TYPE 

c 

c 

c 

DRES23 

CPOINT 

RESIDUAL 
3 DATA 

PLOT 

FOR 

Class 

2 

TYPE 

c 

c 

c 

0BES24 

CPCINT 

RESIDUAL 
4 CATA 

PLOT 

FOR 

Class 

2 

TYPE 

c 

c 

c 

ORF,S23 

CPOINT 

RESIDUAL 
5 DATA 

PLOT 

FOR 

Class 

2 

TYPE 

c 

c 

DFINDP 

CPCINT 

SUMMARY display 




c 

c 

obtaci 

CPCINT 

PLOT OPTION TAELE 

0 I SPLAY 


c 

c 

REVISIONS 








c 

c 


I* L* FEAKES 
TESTING 

(13 JULY 1973) 

- ORIGINAL CODING 

AND 


c 


*00003850 
*OOCC3<300 
«OOC0395O 
*OCCC4000 
*0CC04 OSO 
*00004-100 
*00004 &SQ 
*00004200 
*00004 250 
*00004 300 
*00004 350 
*00004400 
*C00C4450 
*00004500 
*00004550 
*0OC04<00 
*00004650 
*O0G047CC 
*00004750 
*00004600 
*COGC4£50 
*00004900 
*000 04950- 
*00605000 
*00065050 
*00606100 
*00605150 
4C0CC5200 
*00005250 
*00605306 
*00006350 
*00605400 
*00005450 
*0 C€ 05SOO 
*00005550 
*00665600 
*00066630 
*00665700 
*00005750 
*00:063600 
*00605650 
*0CCC590C 
*00005950 
*00606000 
*00006050 
*00606100 
*00006150 
*00606200 
400CC6250 
*00606300 
*00006350 
*00006400 
*00006450 
*006065 00 
*00006560 
*00606600 
*00006650 
*00006700 
♦C00C6750 
*00006800 
*00006850 
*066069 00 
*00006950 


. *00067000 

C ****** S<************»*******»44^-*^#«t«i:*!*j|:,*J4{3f*#****^,(l***4l*^**4^^^^^,j,^^^^^^^Q^^^.^^gQ 

SOBRCUTInK GOCCON ( 1 At-L4 « I ALLS *lfRSTl* IFR3T2*NTtPei ■NTVPE 2*RMOl »RHOOOC7l 00 
1 C 2 • G ^ CR K4 tGwCRK5>I AllO P 


^IME^SIO^ G*C«K4U ) »G*0RK5(1 ) «Rl-Oi< 1 > ,RH02< 1 ) » IFRSTK 1 ) » IFHST2{ 1) 
DIMENSION NTYPE141 J *NTYPE2(t ) 

CCMKQN/GCNl/ ICUT.NClASI *NCLAS2 * NCCF »M AX IT . 1 ft WT * 7 ZLflQ ♦ I CC * IC ALC • 

1 IDER. 

2 5MLLT ,NP .1 »ht«e* ISTEP. I5TUF* IKST. I ST AT .CCP M I N • CCJ«MAX 
COMNCN/OCSJPT/ OPT ICJN( 10) • P I Nf Sh * F IN ALO « IMESG( 8 ) 

INTEGER*4 OP 1 1 ON *F I N ISH ♦FI NAlO . CC ft M IN , COftW AX 
IFIN5H=0 

100 IF f IFlNSHvNEvOaAND^FlNlSt'UEOal ) GO TO 320 

£FIN«H=1 


60CC72 00 
00QO7250 
OOOC7300 
G0067350 
00007400 
00007450 
00 0075 06 
O0QQ7550 
00007600 
0COC7650 
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ISN 00t< 
15N 0G14 
ISN 00J.€ 

I SN 0 C 1 *7 
ISN OCJl« 
ISN 0C2C 
ISN 0051 
ISN 0052 
ISN -C022 
ISN 0024 
ISN 0026 
ISN 002? 
ISN 0026 
ISN 0C2S 

r 

I.SN QOil 
ISN 0022 
ISN 0024 
ISN 0035 
ISN 0C36 
XSN 0037 
ISN 0C2£ 
ISN 003« 
ISN 004C 
ISN 0041 
ISN Q04 2 
ISN 0042 
ISN 0044 
ISN 0045 
ISN 0047 
ISN 0046 
ISN 0C4S 
ISN 005C 
ISN 0G51 
ISN 0052 
ISN 0054 
ISN 0055 
ISN 0057 
ISN ocse 
ISN C05S 
ISN OOOC 
ISN 0061 
ISN 0062 
ISN 0064 
ISN 0065 
ISN C066 
ISH . 0067 
ISN ocee 

ISN ccts 
ISN 0C7C 
ISN CC7 2 
ISN 0072 
ISN 007 4 
ISN 0075 
ISN 0076 
ISN 0077 
ISN CC7£ 
ISN CC7? 
ISN QCdC 

xsN ocei 
ISN ooes 
ISN 0C62 
ISN 0065 
ISN 0C66 
ISN 0067 

ISN ocas 

ISN 0C8^ 
I5N OC^C 
ISN 0C92 
ISN CC^3 
ISN C0^4 
ISN 0C95 
ISN CC46 
ISN CCS? 
ISN 0CS6 


IF t IGC.EQ.O .OR.l ACL4*£C«0*OR. I A*-*_S«cO«OI 00 TO 200 

IF (NCLASI » <^0 TO 200 

00 >90 I=l .NCLASl 

IF lOPTlCNtl ) GD TO 190 

IC0UNT=0 

K-0 

IFftGSaO 

jJl = lFRSTl(I )-l 

NNsNTVPFI < I > 

IF <NN.LE*0> GC TO 190 
NNl = l 

110 DO >20 JtsNM »NN 
lCOUNl=ICQtNT+l 
K*K***1 

G^ORKSI K1=RHC1 < JJl 7>J} 

120 GiirORKAlKJ-ICCUNT 

IF <K«FQ*IAU-S) IFRES-1 
CALL PTSiZE IK,GuOfiK4.GlllQRK5) 

CO TO < 130 «1 40 1 15 0 «1 60 » 170 I • I 
130 CALL CHECK I'SRESll'J 
GO TO lao 

140 CALL CHECK I'ORESiaM 
GO TO ISO 

ISO CALL CHECK ('ORESIS*) 

CO TO 190 

160 CaLl check (♦DRES14«J 
GO TO ISO 

170 CALL CHECK (*0RfcS15*J 

leO IF IIFRES.NE.l.OR* J*E0.NN1 GP TC 190 
IFRE5-0 

^Nl = K4>l 

K = 0 

CO TO 110 
190 CONTINUE 

200 IF CNCLAS2.LE.0 ) GG TO 300 
CO 290 1«1>NCLAS2 

IF tCPT!CM5M>*NE.l) GQ TO 290 
»iJl = IFRST2(I >-l 

K^O 

ICOUNT=0 
NN=NTYPE2< I > 

NNJ,=1 

IF (NN.LB«0> GG TO 290 

IFftES^O 

alQ 00 220 JfcNM .NN 
K=K4-1 

1COLNT=ICOUNT*1 
G«QfiKStK>=RHC2( JJl+J) 

220 G»iORK4<k> = 1CCONT 

IF IK.EO^IALLS) IFR£S=1 
CALL PTSIZE 4K,G»OftK4»GiiORK5> 

CO TO (230*240*250. P6O«270> • I 
230 CALL CHECK l*DRESZl') 

GO TO 2BO 

240 CALL CHECK (‘CRESSa*) 

GO TO 2SO 

250 call check (•CRES23*) 

GO TO 230 

260 CALL CHECK (‘DRESZA'* 

CO TO 2S0 

270 CALL CHECK I •0RE.S25« ) 

280 IF ( lFftES*NE*l*QR» J-E0#NN) GC TD 290 
IFRES=0 , 
hNl-K+1 
K-0 

GO TC 210 

290 CONTINUE ^ 

300 IF ( |ALL0#E0*224*AND* F INALD *EU*l > CALL CHECK (*DFIN0S*) 
CO 310 IQPTs 1*20 
310 CFTlCNdOPD^O 
FlNALD-0 

call CHECK (•CPTABld 
GO TO 100 
320 FETURN 
END 


OOC07700 
00007750 
OOOC7SOO 
tCCC7€50 
OOQ07900 
OOCC7S50 
ooGoeooo 
ococe C5Q 
coooaloo 

00008150 

C0CG8200 

0CCCe250 

00006300 

000CB350 

00008400 

00008450 

coccesoo 

00005550 

coflcteoc^ 

OOOCE 630 

00006700 

00006750 

OOGOeSQO 

00006 £50 

00008900 

OGGC6S50 

00009000 

0CC09C5O 

CCCC9I 00 

00009150 

C0009ZOO 

COOQ9230 

OOC09300 

00G09350 

C0C094 00 

OOOC945C 

OOOC9SOQ 

00 DQ9550 

OQCCSeOO 

C00096SO 

0OCCS7OO 

CCCC9750 

OOOC9 BOO 

C0CCS65O 
CQC09900 
0O6C9S5O 
0091 C 000 
cool CC50 
OOOlOlOO 
OOOl 0150 
OOCl 0200 
cool 0230 
OOG103CO 
00010350 
OOC1O400 
0001 0450 
00010500 
cool OS50 
OOCl 06UO 
00010630 
00010700 
CQOl 075C 
00010800 
00910650 
00010900 
0001 CS 50 
QOQl 1 000 
00011C5C 
OOOlllOO 
OOCS115C 
OOCl 1 200 
00011250 
C0C11300 
C0011350 
00011400 
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